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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


aa IS A LSI-1i RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 

Or TSVOE MAGTAPE SUBSYSTEM WHILE CONNECTED TO A LSI-11/23 SYSTEM 
COBUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE. 


THIS OIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF oe OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT 


1.2 SYSTEM REQUIREMENTS 


LSI-11 PROCESSOR AND MEMORY 

CAUT Ton: DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY 

(26K USEABLE I.E. 4K FOR I/0 PAGE) 

TSVOS MAGTAPE SUBSYSTEM (ORIVE AND CONTROLLER) 

CONSOLE TERMINAL 

POP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER) 
PDP-11 DIAGNOSTIC LOADER/MONITOR (XXDP-) 


1.3. RELATED DOCUMENTS AND STANDARDS 


DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


1. CH@US XXDP+ USERS MANUAL; DOCUMENT NUMBER AC -F348E -MC 
DATE: 14 ALY 1980. 


2. TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK-TSV05-UG-001 
DATE: AUGUST 1962 


3. TSVvOS ea tg cape TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSVOS-TM-001 


DATE: AUGUST 


4. TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK -TSVOS-IN-001 


DATE: AUGUST 1982 


—— a ee - es 
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1.4 OIAGNOSTIC HIERARCY PREREQUISITES 

FUNCTIONAL LSI-11 CENTRAL PROCESSOR AND MEMORY 

FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 

FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDP-) 

1.5 ASSUMPTIONS 

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REPORTED. 

os Lay BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL 
CVTSAA AND CVTSBA HAVE SUCESSFULLY RUN. 

2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC) 
PROCEED CONTINUE FROM AN ERROR HALT 

ay RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 


ACTIVATE A UNIY FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME 


DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL gt tag CIF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE ee sc 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “STAR 


SEQ 0004 
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2.1.1 OPERATOR COMMANDS 


THE TSVOS DIAGNOSTIC IS A LSI-11 CIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 
CHQUS XXDP+ USERS MANUAL ,DOCUMENT NUMBER AC-F348E-MC. THE USER ENTRY IS IN QUOTES. 


BOOT THE DIAGNOSTIC MEDIA 


.R VTSC?? 

DIAG. RUN-TIME SERVICES REV D. APR 79 
CvTSC-A-0 

#eeeTSVOS LOGIC DIAGNOSTICeses 

UNIT IS TSVOS 


>DR 
2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES — ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD”. 


SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1,5.7,8.9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 
/PASS : 00000 EXECUTE DODDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED a FLAGS ARE DESCRIBED 
IN SECTION 2.3 
7EOP : 00000 REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (ODDOD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 CUNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: ; 
START/TESTS: 1-S/PASS: 1000/E0P : 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE “/TES:1-5” INSTEAD OF “/TESTS:1-5". 
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BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED By EACH 
COMMAND . 


TESTS PASS FLAGS EOP UNITS 


2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP hag REMAIN 


ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IERs INHIBIT ALL ERROR REPORTS 

IBRe INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST Love, CONTAINS 
ERROR T PC, TEST AND UNIT) 

IXE* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO’'S) 

PRI DIRECT MESSAGES 10 LINE PRINT 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL” ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 


IOR INHIBIT PROGRAM DROPPING OF UNITS 
ADR EXECUTE oe CODE 
LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 
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SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. OU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS :LOE : IER: BOE 
2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING “CHANGE HW (L) ?” 
YOU MUST ANSWER "“Y" AFTER A START COMMAND UNLESS THE HAROWARE 
INFORMATION HAS BEEN “PRELOADED” USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS CIN DECIMAL). 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE “CHANGE HW?” QUESTION 70 ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


ON A “N” (NO) RESPONSE TO THE “CHANGE HW?” QUESTION, THE DIAGNOSTIC WILL 


RUN USING THE DEFAULT VALUES FOR ALL _—— THE DEFAULT ADDRESS AND VECTOR ARE: 


TSBA/TSOB = 172520, VECTOR = 


ON A “Y" (YES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
VALUE, IF PRESENT, LCCATED TO THE LEFT OF THE QUESTION MARK IS_ THE 
DEF AULT a THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A “(D)" IN A — INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED AS A _ RESPONSE. "(0)" INDICATES AN OCTAL NUMBER IS BEING 
ay Hy A ey TNOrcaTes THAT A LOGICAL RESPONSE IS TO BE MADE: 


@ UNITS (0) ? <ENTER THE NUMBER OF M7455 CONTROLLERS 
ane 4 PRESENT TO BE TESTED» 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) yt ty IN THE “@ UNITS?" QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDEK, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTEO FOR TESTING AS FOLLOWS: 

UP TO 4 TSVOS CONTROLLERS PER LSI-11 AND UP TO 2 DRIVES PER CONTROLLER 


SEQ 9007 
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2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY “CHANGE SW (L) ?” 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

“Y". THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


THE FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART, OR CONTINUE. 


THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N ? <TYPE “Y”" TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK-RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS. > 


2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE 7 mapa 


0 
UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 
A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A 9 EFFICIENT ons an SUPPOSE YOU ARE TESTING 

A DEVICE, THE xY1 SUPPOSE THIS DEVICE CONSISTS OF 

A CONTROL MODULE utin EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 
ge UNITS ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 

TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


@ UNITS (0D) ? 6<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 

CSR ADORESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 1<CR> 
Q-FACTOR (0) 1 ? O<CR> 


UNIT 3 


CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 2<CR> 


SEQ 0008 
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Q-FACTOR (0) 0 ? «<CR> 


UNIT 4 

CSR ADDRESS (0) « 160000<CR> 
SUB-DEVICE @ (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 5 


CSR ADDRESS (0) ? 160000<CR> 


SUB-DEVICE @ (0 


)? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


6 
CSR ADDRESS (C) ? 160000<CR> 
SUB-DEVICE @ (0) ? 5S<CR> 


Q-FACTOR (0) 0 ? <CR> 


UNIT 7 


CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6<CR> 


Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 
CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE @ (0) ? 7<CR> 


Q-FACTOR (0) 1? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 


NON-DEFAULT RESPONSE IS GIVEN. 
MULTIPLE UNITS! 


BE CAREFUL WHEN SPECIFYING 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 


NOT VERY EFFICIENT. 


SEQ 9009 
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THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 


LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION 
FEATURE. 


@ UNITS (D) ? 6<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


UNIT 3 

CSR ADORESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 2-5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVE'i IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND G-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 

“-" CONSTRUCT TELLS THE "ia on SERVICES TO INCREMENT THE ae 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 

2, 3. 4 AND 5 WERE SPECIFIED. (CIF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 

BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 

THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY 

SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE OTHIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


@ UNITS (0) 2? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 0-7<CR> 
Q-FACTOR (0) 0 ? 0O,1,0....1,1<CR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


SEQ 0010 
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2.7 QUICK START-UP PROCEDURE (xxDP- 
TO START-UP THIS PROGRAM: 
1. BOOT XxDP- 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


. TYPE “START” 

. ANSWER THE “CHANGE HW" QUESTION WITH “Y” 

. ANSWER ALL THE HARDWARE QUESTIONS 

. ANSWER THE “CHANGE SW” QUESTION WITH “N” 

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 

3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SECTION 2.5). 
THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXxXxxx 
ERROR MESSAGE 


WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL,.DEV FATAL, HARD OR SOFT) 
* ERROR NUMBER 


NUMBER 

UNIT NUMBER = 0 - N (N IS LAST UNIT IN PTABLE) 

TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC: XXXXXX = ADORESS OF ERROR MESSAGE CALL 


BASIC ERROR aaa ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER” OR “IBR” F FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 


vo yw f& 


PRINTED UNLESS THE “IER”, “IBR” OR “IXR” FLAGS ARE SET (SECTION 2.3). 


THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


EL — ——————— 


SEQ 0011 
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3.2 SPECIFIC ERROR MESSAGES 


BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC 


ERROR MESSACE EXAMPLE 1 


THIS ERROR IS INDICATIVE CF AN INCORRECT REGISTER OR STATUS WORD RETURNED 

TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED. 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE 

oo ee: REGISTER OR STATUS WORDS. "HE THIRD PART IS THE EXPECTED AND RECEIVED 
DATA. 


TST: 016 FIFO EXERCISER TEST 
CVTSC HRD ERR 01610 ON UNIT OO TST 016 SUB 002 PC: 040624 
FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 


TAPE BUS SIGNALS IN WORD #6: - DESIGNATOR <BIT o> 
PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2> 
IRESV2<14> IIDENT<11> IHER <B8> IOM<S> IFBY<1> 
IRESV1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<O>» 


DATMIS<7> ILW<6> OUTRODY<S> sIror<4> 


60 1 : 

@1 EXPD: 000012 RECV: 000012 xXOR: OG00000 
: 000000 : : 

#3 EXPD: 000010 RECV: 000010 xOR: 000000 


SusGuHN4Ht 


ERROR MESSAGE EXAMPLE 2 


THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE, IN THIS 
INSTANCE AN UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE 
CONTROLLER MAY BE DEFECTIVE. 


CVTSC HRD ERR 00159 ON UNIT 00 TS! 001 SUB SCS PL: 026202 
TSSR NOT comet AFTER SPACE RECORDS COMMAND 

TSSR = 100214 

TSSR BITS SET: SC,SSR 

TERMINATION CLASS CODE = UNRECOVERABLE ERROR 

PACKET ADDRESS = 026420 


PACKET WORD @ = 140010 
PACKET WORD @ = 0600010 
PACKET WORD @ = 000000 
PACKET WORD @ = 000024 
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ERROR MESSAGE EXAMPLE 3 


THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING 4 
REWIND WITH EXTENDED FEATURES MODE ENABLED. 


CVTSC HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 02353506 
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE ) 
EXPD: 000312 RECV: 000112 XOR: 000200 


SEQ 001% 
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4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE “EOP” SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 

F PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


SUCCESSFUL RUN EXAMPLE (LSI-11) 


R>STA/FLA:PNT : HOE 

UNITS (0) ? 1 

UNIT 0 

DEVICE ADORESS (0) 172520 ? <«CR> 
VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 


THE ABOVE COMMAND WILL START THE OIAGNOSTIC. THE COMMAND HAS TWO 
SWITCHES ON WHICH ARE “PRINT EACH TEST NBR AS EXECUTED” AND “HALT ON 


TST: O01 INITIALIZE #4 TEST 

TST: O02 OFF-LINE REJECT AND REWIND TEST 
TST: 003 BASIC WRITE DATA TEST 

TST: 004 BASIC READ DATA TEST 

TST: COS SPACE RECORDS TEST 

TST: 006 REREADS TEST 

TST: O07 WRITE DATA RETRY TEST 

TST: O06 WRITE TAPE MARK TEST 


© ERRORS 


NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT 
HAS BEEN SPECIFIED WITH THE “/PASS:” SWITCH. 


SEQ 0014 
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PROGRAM RUN TIMES 


THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. THESE FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON ALSI-11 
PROCESSOR WITH A LAS4 CONSOLE. 


THE PROGRAM RUNS IN TWO MODES; NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED BY 
THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A “Y" (YES). 


TEST N/I = NUMBER DEF 
NUMBER SECS. ITER SECS. 


1 3 10 7 
2 3 8 5 
3 38 250 212 
4 60 300 240 
5 60 300 240 
6 120 360 240 
? 120 600 480 
8 22 90 68 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 8 IN ONE COMMAND: 


Q.V. 7 MINUTES 
DEFAULT 31 MINUTES 


a noe ee ee ee ee  -e 


——d 
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5.0 DEVICE INFORMATION TABLES 
WHENEVER THE PROGRAM IS STARTED, VIA THE STACRT) COMMAND, 
THE SUPERVISOR REGUESTS THE FOLLOWING P-TABLES PARAMETER 
CHANGES: 

CHANGE HW (L) ? 


@ UNITS (0) ? <ENTER THE NUMBER OF M7455 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADORESS OF THE 
TSBA/TSDB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADORESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE "@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SFLECTED FOR TESTING. 


IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
~ ayy atts CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 
L 


CHANGE SW (L) ? 


INHIBIT ITERATIONS (L) N ? 


SEQ 0016 


nN Se 
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6.0 TEST SUMMARIES 


: INITIALIZE #4 TEST 


THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 
er TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS 
(I.E. LOOPBACK ENABLED, FORCING WRONG PARITY, INVERTING SENSE OF 
EXTENDED FEATURES SWITCH, ETC. ) 


OFF-LINE AND REJECT REWIND 
THIS TEST VERIFIES BASIC TAPE-MOTION COMMAND DECODING AND BASIC 
THE RE POSITION DOES NOT 


OF . 
NECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN 
ARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY 
CHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST 
Hak REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST 


BASIC WRITE DATA 


THIS TEST VERIFIES THAT THE WRITE DATA (NEXT) COMMAND OPERATES 
PROPERLY, UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY 
WRITTEN ONTO THE TAPE CORRECTLY. CHECKING IN THIS TEST IS 
LIMITED TO VERIFYING THAT THE COMMAND TERMINATED CORRECTLY WITH 
THE CORRECT REGISTER, MESSAGE SUFFER AND RAM CONTENTS 


PPT ePPT TTT TTT TTT TTT TTT TOT TT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT Te 


CAUTION 
THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS wate ae hn ale 
ARE ONLY CHECKED WHEN RUNNING ON A LSI-11 SYSTEM WITH MORE T 


PPPOPTP Poorer TTT TTT TTT TTTITITTTITITTTTTTTTTTTT TTT TT TTT TTT TTT TTT TTT 


BASIC READ DATA (FORWARD AND REVERSE ) 


THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE 
COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN 
DATA BUFFER BOUNDARIES, RECORD SIZES (UP TO — BYTES IF MEMORY 
SPACE IS AVAILIABLE), AND BYTE-SWAP CONTROL ARE USED. THIS TES! 
OF COURSE, FURTHER VERIFIES THE WRITE DATA COMMAND BY ACTUALLY 
READING AND VERIFYING WRITTEN DATA. ALSO TESTED ARE PROPER 
TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH 
LONG, RECORD LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA 
BUFFER ADDRESSES, ILLEGAL CODES IN THE MODE FIELD OF THE BASIC 
AD COMMAND, AND DATA BUFFERS IN NON-EXISTANT MEMORY. 


acne stseated Nice Bh wie Noten Be entree enn Be EES 


CAUTION 
THE LSI BUS DRIVERS FOR ALL AVAILABLE ADORESS LINES( 16-21) 
ARE ONLY CHECKED WHEN RUNNING ON A LSI-11 SYSTEM WITH MORE THAN 
126K WORDS OF MEMORY! 


SESCHSEEEESEEESESESSSSEHSSESEASESEUSSESESSESEESEHSESESEHEHESEEEEEEEEOEE 


SEQ 0017 
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SPACE RECORDS 


THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE 

RECORDS hig By - 23! COMMANDS OPERATE PROPERLY WHEN SPACING 
OVER NORMAL DATA RECORDS. OPERATION WHEN SPACING OVER TAPE MARKS 
Is an ee IN A age naa THE BASIC WRITE DATA TEST 


SHOULD HAVE BEEN RUN SUCCESSFUL 

RESULTS. THIS TEST CONSISTS OF A. SERIES OF SUBTESTS. IN EACH 

OF THE SUBTESTS, THE TAPE IS ENTIRELY WRITTEN WITH RECORDS 

OF VARYING SIZES AND DATA CONTENT; THE FIRST 4 BYTES OF EACH 
RECORD INDICATE THAT RECORD'S RELATIVE POSITION ON TAPE. AFTER 
EACH SPACING OPERATION, THE TAPE POSITION IS VERIFIED BY READING 
THE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH 
THE EXPECTED RESULT. 


REREADS 


THIS TEST eat oh THAT THE waka PREVIOUS AND REREAD NEXT 
COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN 
DATA BUFFER BOUNDRIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY 
SPACE IS AVAILIABLE), AND BYTE-SWAP (SWP) AND OPPOSITE (OPP) 
CONRTOL ARE USED. ALSO TESTED ARE PROPER bseopey Ey ON 
EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG, RECORD 
LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA BUFFER ADDRESSES, 
AND DATA BUFFERS IN NONEXISTENT MEMORY. 


PPePrPrrrrerrrererer rrr TTTrr TTT TTITTTTTTTiTiTTTTiTiiTTTTiiTiT TTT Tit 


CAUTION 
THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES(16-21) 
ARE ONLY CHECKED WHEN RUNNING ON A LSI-11 SYSTEM WITH MORE THAN 
126K WORDS OF MEMORY! 


SHSSSSHHESAASSSSSSSSESSHSSSSHHEASSHSESSHOAASHSEHKSHHSSSHSSESESHESCEHSESHESSEESE 


WRITE DATA RETRY 


THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


WRITE/READ TAPE MARK 


THIS TEST VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES 
PROPERLY. IT oar VERIFIED yet THE TAPE MARK IS dt E a TAPE 
BY CHECKING THAT THE READ AND SPACE RECORDS COMMANDS DETECT THE 
TAPE MARK. IN ADDITION. SINCE WRITE TAPE MARK 1S THE FIRST 
SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED, IT IS VERIFIED 
THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND THAT 
FORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED. 


SEQ 0018 
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7.0 MAINTENANCE HISTORY 


REVISION A - JUNE 1983 


REVISION B - JUNE 1 
UPDATED FOR NEW PORTON CPU a RELATING TO TIMEOUT 
ERRORS (@311 & #320) ON REWIND 
ELIMINATED CPU ID MESSAGE. 


| 
| 
| 
| 
| 
| 
| 


TSVe 


- PROGRAM HEADER MACRO M1113 


000000 
000000 
000000 

002000 
002000 
002000 
002000 
002000 
002000 
002000 103 
002001 126 
602002 124 
002003 123 
002004 103 


002010 
002010 102 
002011 
002011 060 
002012 
002012 000000 
002014 
002014 001217 
002016 
002016 112730 
002020 
002020 113062 
002022 
002022 002146 
002024 
002024 002156 
002026 
002026 113404 
002030 
002030 000000 
002032 
002032 000000 
002034 
002034 000000 
002036 


He 
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.TITLE TSV2 - PROGRAM HEADER 
-SBTTL PROGRAM HEADER 
.PSECT ABS 


-MCALL SVC 

svc s INITIALIZE SUPERVISOR MACROS 
-ENABLE LC 

-NLIST BEX,CNO 

-ENABL ABS,AMA 


TSv2 
TSVe:: 


see 

; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
eae 


POINTER BGNSW,BGNSF T ,.BGNAU,BGNOU , BGNRPT 
HEADER CVTSC,B,0,655.,0 


L $NAME : ;DIAGNOSTIC NAME 
-ASCII /C/ 
-ASCII /V/ 
-ASCII /T/ 
-ASCII /S/ 
-ASCII /C/ 
BYTE 0O 
BYTE O 
BYTE 0 

LS$REV:: sREVISION LEVEL 
-ASCII /B/ 

L$DEPO: : 30 
-ASCII /0/ 

LSUNIT:: ;NUMBER OF UNITS 
-WORD O 

LSTIML:: ;LONGEST TEST TIME 
.WORD 655. 

LSHPCP: : sPOINTER TO H.W. QUES. 
.WORD LS$HARD 

L$SPCP:: ;POINTER TO S.W. QUES. 
. WORD L$SOFT 

LSHPTP:; ;PTR. TO DEF. H.W. PTABLE 
-WORD LSHW 

L$SPTP:; sPTR. TO S.W. PTABLE 
-WORD L$SW 

L$LAOP: : ;DIAG. END ADDRESS 
.WORD LS$LAST 

LSSTA:: sRESERVED FOR APT STATS 
-WORD O 

L$CO:: 
-WORD O 

LSOTYP:: sDIAGNOSTIC TYPE 
-WORD O 

LSAPT:: ;APT EXPANSION 
-WORD O 

LSDTP:: ;PTR. TO DISPATCH TABLE 


SEQ 0020 


TSV2 - PROGRAM HEADER 
PROGRAM HEADER 


31 


002124 
000000 


003 
003 


003372 
022710 
000000 
000000 
022376 
022474 
000000 
003400 
104035 
900000 
021602 
022662 
022602 
021572 
000000 
000000 
000000 
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. WORD 
LSPRIO:: 

. WORD 
LSENVI:: 

. WORD 
LSEXP1:: 

. WORD 
LSMREV:: 

.BYTE 

BYTE 
LSEF:: 

. WORD 

. WORD 
L$SPC:: 

. WORD 
L$DEVP:: 

. WORD 
LSREPP: : 

. WORD 
LSEXP4:: 

. WORD 
LSEXPS:: 

. WORD 
L$AUT:: 

. WORD 
L$DUT:: 

. WORD 
L$LUN:: 

. WORD 
L$DESP: : 
L$LOAD: : 

EMT 
LSETP:: 

. WORD 
LSICP:: 

. WORD 
LSCCP:: 

. WORD 
LSACP:: 

. WORD 
L$SPRT:: 

. WORD 
LSTEST:: 

. WORD 
LSOLY:: 

. WORD 
LSHIME:: 

. WORD 


LSDISPATCH 


sDIAGNOSTIC RUN PRIORITY 
sFLAGS DESCRIBE HOW IT WAS SETUP 


t¢) 
5 ;EXPANSION WORD 
3SVC REV AND EDIT ¢@ 
CSREVISION 
CSsEDIT 
;DIAG. EVENT FLAGS 
0 
0 
; POINTER TO DEVICE TYPE LIST 
L$OVTYP 
sPTR. TO REPORT CODE 
L$RPT 
0 
0 
3PTR. TO ADD UNIT CODE 
L$AU 
sPTR. TO DROP UNIT CODE 
L$DU 
P ;LUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
L$DESC 
sGENERATE SPECIAL AUTOLOAD EMT 
E$LOAD 
P sPOINTER TO ERRTBL 
:PTR. TO INIT CODE 
LSINIT 
sPTR. TO CLEAN-UP CODE 
L$CLEAN 
sPTR. TO AUTO CODE 
L$AUTO 
sPTR. TO PROTECT TABLE 
L$PROT 
;TEST NUMBER 
P ;DELAY COUNT 
‘ ;PTR. TO HIGH MEM 


SEG 002: 


TSV2 - PROGRAM 
DISPATCH TABLE 


57 002154 
002154 
002156 
002156 

58 002156 

59 002160 


002164 

002166 

002166 
65 002166 
66 


é1 
62 002162 
63 
64 


HEADER 


000003 


172520 
000224 
000200 
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. SBTTL 


DISPATCH TABLE 
; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 


; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


DISPATCH 8 
-WORD 86 
L$DISPATCH: : 

-WORD Tl 
-WORD Te 
-WORD 13 
-WORD 14 
-WORD TS 
-WORD T6 
-WORD 17 
-WORD T8 


-SBTTL DEFAULT HARDWARE P-TABLE 
; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 


3¢*? 


; THE TEST-DEVICE PARAMETERS. 


THE STRUCTURE OF THIS TABLE 


; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 


BGNHW OFPTBL ;DEFAULT HARD-P-TABLE 
-WORD L10000-L$HW/2 

L$HW: : 

DFPTBL 
. WORD 172520 ; 1ST COF 2) REGISTERS. 
-WORD 224 ; INTERRUPT VECTOR 
.WORD PRIO4 ; INTERRUPT PRIORITY. 
ENOHW 

L10000: 
-SBTTL SOFTWARE P-TABLE 


+e 


; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


BGNSW 
. WORD 
L$SW:: 
SFPTBL: 
TRANSTST 
NOITS:: 
LERRMAX: : 
GERRMAX: : 
ENOSW 
L10001: 
ENDMOD 


SFPTBL 
L10001-L$SW/2 


-WORD O ; ENABLE TEST OF TRANSPORT(S) IF =1 
-WORD 0 ; INHIBIT ITERATION OPTION. 
3... O = ITERATE. 
s ...NZ * INHIBIT ITERATE. 
-WORD 15. ; LOCAL (PER TEST) ERROR LIMIT 
D 200. ; GLOBAL (PER UNIT) ERROR LIMIT 


SEQ 0022 


TSV3 - GLOBAL AREAS 


SOFTWARE P- TABLE 


20 002166 
002166 


32 002166 
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-TITLE TSV3 - GLOBAL AREAS 
.SBTTL GLOBAL EQUATES SECTION 


BGNMOD TSV3 
TSV3:: 
.SBTTL GLOBAL EQUATES SECTION 


; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
; ARE USED IN MORE THAN ONE TEST. 
3 -_- 


EQUALS ; GET STANDARD EQUATES. 
; BIT DIFINITIONS 


BIT15== 100000 
BIT14== 40000 
BIT13== 20000 
BIT12== 10000 
BIT1i1== 4000 
BIT10== 2000 
BITO9== 1000 
BITO6== 400 
BITO7== 200 
BITO6== 100 
BITOS== 40 
BITO4== 20 
EITO3== 10 
BITO2== 4 
BITO1== 2 
BITOO== 1 


; 

BIT9== BiTO9 
BIT6== BITOS 
BIT7=*= 68IT0O7 
BIT6== BITO6 
BITS== BITOS 
BIT4*= BITO4 
BIT3*= BITOS 
BIT2== BITO2 
BITi== B6ITO1 
BITO== BITOO 


; EVENT FLAG DEFINITIONS 
;  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


EF .START== 32. ; START COMMAND WAS ISSUED 

EF .RESTART== 31. ; RESTART COMMAND WAS ISSUED 

EF .CONTINUE== 30. ; CONTINUE COMMAND WAS ISSUED 
EF .NEW== 29. ; A NEW PASS HAS BEEN STARTED 

EF .PWR== 28. ; A POWER-FAIL/POWER-UP OCCURRED 


; PRIORITY LEVEL DEFINITIONS 


TSV3 - GLOBAL AREAS MACRO M1113 
GLOBAL EQUATES SECTION 


33 
34 002166 


000250 


177572 
177574 
177576 
172516 
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PRIO7*= 340 


PRIO6== 300 
PRIOS== 240 
PRIO4*= 200 
PRIOS*= 140 
PRIO2*= 100 
PRIO1*= 40 
PRIOO== 0 

; 

;OPERATOR FLAG BITS 
i 

EVL== 4 
LOT== 10 
ADR== 20 
IDu== 40 
ISR== 100 
UAM== 200 
BOE += 400 
PNT== 1000 


KT11 oe 
-SBTTL MEMORY MANAGEMENT DEFINITIONS 
3+*#KT11 VECTOR ADDRESS 


MMVEC= 250 
3#KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 


IF NB 

s#USER “I“ PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177600 

UIPOR1= 177602 

UIPDR2= 177604 

UIPOR3= 177606 

UIPOR4= 177610 

UIPORS= 177612 

UIPOR6= 177614 

UIPDR7= 177616 


s*USER “D” PAGE DESCRIPTOR REGISTORS 
UDPDRO= 177620 
UOPORI= 177622 
UOPDR2= 177624 
UDPDR3S= 177626 
UDPOR4= 177630 
UDPORS= 177632 
UDPOR6= 177634 
UDPOR7= 177636 


;DEF INE MEMORY MANAGEMENT REGISTERS 


5EQ 0024 


TSV3 - GLOBAL AREAS MACRO M1113 
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USER “I 
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IF NB 
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177640 


PAGE ADDRESS REGISTERS 


;@USER “D” PAGE ADDRESS REGISTERS 


IF NB 


177674 


;@SUPERVISOR “D” 
SDPDRO 


= 1 
SOPDR1= 


SOPDR2= 
SOPOR3= 
SDPOR4 
SDPDRS = 
SOPOR6= 
SOPOR7= 


- ENDC 
s;*SUPERVISOR “I” 


SIPARO= 


IF NB 


172240 


;@SUPERVISOR “D” 


SOPAR3= 


172260 


172266 


PAGE DESCRIPTOR REGISTERS 


PAGE DESCRIPTOR REGISTERS 


PAGE ADDRESS REGISTERS 


PAGE ADDRESS REGISTERS 


SEQ 0025 
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MEMORY MANAGEMENT DEFINITIONS 


SDPAR4= 172270 


SOPAR7T= 172276 
-ENOC 


.ENDC 

;@KERNEL “I” PAGE DESCRIPTOR REGISTERS 
172300 KIPDRO= 172300 
172302 KIPORI= 172302 
172304 KIPOR2= 172304 
172306 KIPORS= 172306 
172310 KIPOR4= 172310 
172312 KIPORS= 172312 
172314 KIPORG6= 172314 
172316 KIPOR7= 172316 

IF NB 


s@KERNEL “D” PAGE 
DESCRIPTOR REGISTERS 
KDPDRO= 172320 
KDPORI= 172322 
KDPOR2= 172324 
KDPORS= 172326 
KDPOR4 = 
KDPORS= 172332 
KDPOR6= 172334 
2 172336 


- ENDC 
;*KERNEL “I” PAGE ADDRESS REGISTERS 


172340 KIPARO= 172340 
172342 KIPARi= 172342 
172344 KIPAR2= 172344 
172346 KIPAR3S= 172346 
172350 KIPAR4= 172350 
172352 KIPARS= 172352 
172354 KIPAR6= 172354 
172356 “yy 172356 
s;@KERNEL “OD” PAGE ADDRESS REGISTERS 
KDPARO= 172 
KDOPAR1= 172362 
AR2= 172364 
KDPAR3S= 172 


SEQ 0026 
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TSVOS REGISTER AND PACKET DEFINITIONS 

39 .SBTTL TSVOS REGISTER AND PACKET DEFINITIONS 

40 

41 H 

42 : SOME GENERAL EQUATES. 

43 ; 

44 

45 000004 ERRVEC== 4 3 yA TO ERROR VECTOR FOR BUS TIME OUT. 

46 000060 TTIVEC== 60 s INTERRUPT VECTOR FOR CONSOLE INPUT 

47 177560 TTICSR=e= 177560 s BUS ADDRESS OF CONSOLE INPUT 

48 177562 TTIBFR== 177562 : CONSOLE INPUT DATA BUFFER 

49 177520 BOVPCR== 177520 s BOV11 PAGE CONTROL REGISTER 

50 

Sli 3° 

52 ;BIT DEFINITIOWS FOR TSSR REGISTER 

53 3: 

54 

55 100000 SC= BIT15 sSPECIAL CONDITION 

56 040000 BIE= BIT14 38US INTERFACE ERROR 

57 SCE= BIT:3 3SANITY 

58 010000 RAR = BITi2 sMOOIFICATION REFUSED 

59 004000 NXMe BITi1 sNONEXISTANT MEMORY ERROR 

60 002000 NBA= BIT10 sNEED BUFFER ADORESS 

61 001400 HIADOR= BITS!BITS sEXTENDED ADORESS BITS 

62 000200 SSR= BIT7 3SUB SYSTEM READY 

63 000100 OFL* BIT6 3;OFF LINE BIT 

S4 000060 FATERR= BIT4:BITS sFATAL TERMINATION ERROR CODES 

4 000016 TERCLS= BIT3S!BIT2:BIT1L | TERMINATION CODES 

67 3° 

68 Fy 

69 sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 

70 3(xXST0) 

71 3 

8 . 

74 100000 XSOTMK= BIT15 s TAPE MARK DETECTED 

75 040000 XSORLS= BIT14 sRECORD LENGTH SHORT 

76 020000 XSOLET= BIT13 sLOGICAL END OF TAPE 

77 010000 XSORLL* BIT1i2 sRECORD LENGTH LONG 

78 XSCMLE* BIT11 sWRITE L 

79 002000 XSONEF= BIT10 sNON EXECUTABLE FUNCTION 

80 001000 XSOILC= 8 sIu 

81 XSOILA= BITS 

000200 xXSOMOT= BIT7 sTAPE IN MOTION 

83 000100 XSOONL= BIT6 s TRANSPORT ON LINE 

84 XSOIE= BITS s INT 

85 000020 XSOVCK= 6214 sVOLUME CHECK BIT 

86 000010 XSOPED= BITS sPHASE D DRIVE 

87 000004 XSOWLK=: BIT2 IWRITE LOCKED 

88 000002 xsopoT= BIT1 sBEGINNING OF TAPE 

89 000001 XSOEOT= BITO sEND OF TAPE 
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3° 
:61T 5 theese FOR EXTENDED STATUS REGISTER } 


3(XST 

“- 

X1.0LT * BIT15 sDATA LATE 

X1.SPARE= 8IT14 sNOT USED 

xX1.COR = BIT13 sCORRECTABLE DATA ERROR 

X1.MBZ = BIT12-8IT11+81110-B1T9+B1T7-B116-B1TS-BIT4-B1T3-B1T2+BIT0 sALWATS © 
X¥1.RBP = BITS sREAD BUS PARITY ERROR 

X1.UNC = BIT1 }UNCORREC TABLE DATA OR HARD ERROR 

3¢ 

sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 

3(xST2) 

3° 

X2.0PmM = BIT15 sOPERATION IN PROGRESS (TAPE MOVING) 

x2.RCE = BIT14 sRAM CHECKSUM ERROR 

X2. SPARE = BIT13-BIT12-B1T11 -BIT9-BIT8 sNOT USED BY TSVOS (ALWAYS=0) 
x2.WCF = BIT10 sWRITE OCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT 
X2.EXTF = BIT7 VIF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 
X2.BUFE = BIT6 sIF pr Sa CHAR CMD THEN = BUFFERING ENABLED 

X2.REV = 000077 sIF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
X2.UNIT = BIT2-BIT1-BITO. sIF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 


3° 
sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 


3(XST3) 

ge 

X3.MDE = 177400 sMICRO-DIAGNOSTIC ERROR CODE 
X3.SPARE= BIT7 sNOT USED BY TSVOS 

X3.0PI = BIT6 sOPERATION INCOMPLETE 
X3.REV = BITS sREVERSE 

X3.TRF = BIT4 s TRANSPORT RESPONSE FAILURE 
x3.0CK = BITS sODENSITY CHECK 

X3.MBZ *BIT2-BIT1 sNOT USED ALWAYS O 

xX3.RI8 = BITO sREVERSE INTO BOT 

3° 

s6IT DEFINITZONS FOR EXTENDED STATUS REGISTER 4 
3(xXST4) 

3° 

X4.HSP = BIT15 sHIGH SPEED 

X4.RCE = BIT14 a COUNT EXCEEDED 
xX4.TSM = BIT13 TRANSPORT SPECIAL MODE 


x4.MBZ = 81T12.81T11+B1110-8119-B178 sNOT USED ALWAYS 0 
X4.WRC = 00037 sWRITE RETRY COUNT FIELD 


sTSSR TERMINATION CODES (BIT 0-2) 
; 
i 


TSREJ* 362 sCOMMAND REJECTED 
UNREC= 6 sUNRECOVERABLE ERROR 


—— ——-- re 
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DEVICE 


4 
4:17’ 


REGISTER OFFSETS 

0 

; sTSOB/TSBA REGISTER 

1 sTSOB/TSBA REGISTER HIGH BYTE 
2 sTSSR REGISTER 

3 sTSSR REGISTER HIGH BYTE 


; TSOB ADDRESS BIT DEFINITIONS 


3 - 
A1716 


= BIT1+BITO sADDRESS BITS 17:16 ARE IN 1:0 


3¢ 
s COMMAND DEFINITIONS 


at 
P .GETSTAT * 17 3GET STATUS 
P. INIT «= 13 s INITIALIZE 
P . CONTROL = 12 sCONTROL COMMANDS 
P .FORMAT = ll 3F T 
P .POSITION * 10 sPOSITION 
.WRTSUB = 6 sSUBSYSTEM WRITE 
P.WRITE » 5 sWRITE 
P.WRTCHAR 2 4 sWRITE CHARACTERISTICS 
P READ = 1 sREAD 


3¢ 
s COMMAND PACKET HEADER WORD BIT DEFINITIONS 


P.ACK = BIT15 sBUFFER AVAIL FOR CONTROLLER 

P.CvC = BIT14 sCLEAR VOLUME CHECK 

2.0PP = BIT13 )REVERSE SEQUENCE OF DATA BITS 
P.SWB = BIT12 sSWAP BYTES IN MEMORY 

P.MODE = 1T11!61T10:811918178 sEXTENDED COMMAND MODE FIELD 
P.IE * BIT s INTERRUPT E 

P.FMT= eiteteiTs SPACKET HEADER TYPE (ALWAYS=0) 
P.CMO 37 sMAJOR COMMAND FIELD 


3¢ 
; CONTROL COMMAND MODE CODES 


PC .RELEASE = 00256. sRELEASE BUFFER 

PC .REWIND = 10256. sREWIND 

PC .NOOP = 20256. sNO- 

PC. IEREW = 40256. sREWIND IMMEDIATE INTERRUPT 
PC .ERASE * 50256. sSECURITY ERASE 


SEQ 9029 
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= 


3° 
; CONTROLLER RAM DEFINITIONS 


RMCHBEG = 167 
200 


sCHARACTERISTICS IO DATA BEGIN RAM ADDRESS 
sCHARACTERISTICS IO DATA END RAM ADDRESS 
PACKET BEGIN RAM + 


MESSAGE BUFFER BEGIN RAM ADDRESS 
sMESSAGE BUFFER END RAM ADDRESS 


; 
sREGISTER DEFINITIONS IN THE MESSAGE BUFFER 


XSTO=#= 6 
xSTl== 6. 
XST2== 10. 
XST3*= 12. 
XST4*= 14, 


sEXTENDED STATUS REGISTER O ( 
sEXTENDED STATUS REGISTER 1 ( 
sEXTENDED STATUS REGISTER 2 ( 
sEXTENDED STATUS REGISTER 3 ( 
sEXTENDED STATUS REGISTER 4 ( 


i 


OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 


sLOW ORDER CHARACTERISTIC DATA POINTER 
sHIGH ORDER CHARACTERISTIC DATA POINTER 
sNUMBER OF BYTES IN DATA PACKET 


sNUMBER OF BYTES IN EXTENDED DATA PACKET 


3¢ 
sDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 


SE 
SELDATA 


a&rro 


sBYTE O 
;BYTE i 


; 
sWORD 3 


SEQ 0030 
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239 3° 
240 ;B8SELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 
241 3° 
242 000000 Pw. = 0 +NO-OP 
243 000001 PwW.RDRAM =} sREAD RAM 
244 000002 PW. WTRAM * 2 ;sWRITE RAM 
245 000003 Pw.RFIFO e @ sREAD FIFO 
246 000004 PW.WFIFO = 4 sWRITE FIFO 
247 000005 PW.ROSTAT « 5 sREAD STATUS 
248 PW. WCTL = 6 sWRITE TAPE CONTROL 
249 000007 PW.WFMT = 7 sWRITE TAPE FORMAT 
000C10 PW. WMISC * 10 tWRITE MISCELLANEOUS 
251 000011 Pw. = ll sWRITE NPR CONTROL 
252 000020 Pw.022 = 20 100 MICROTEST 22 
253 000021 PwW.011 = 21 3:00 MICROTEST 11 
254 000022 Pw.013 * 22 300 MICROTEST 13 
255 000023 PW.NO1311 s 23 sDISABLE MICROTEST 11 AND 13 
oat 000024 Pu. x = 24 sREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 
258 3+ 
44 ;BSEL1 CODES FOR WRITE TAPE CONTROL 
a. 
261 000200 WC .IFAD = BIT7 sIFAD - sige see ADORESS 
262 000100 WC. IOTAD = BIT6 sITADO TRANSPORT ADORESS BIT O 
263 000040 WC .I1TAD = BITS sITAD1 - TRANSPORT ADORESS BIT 1 
000020 WC. ISRESV = BIT4 sIRESVS - RESERVED 05 
265 000010 WC. IREW = BITS s IREW - REWIND 
266 000004 WC. IRWU = BIT2 ;IRWU - REWIND AND UNLOAD 
267 000002 WC.IFEN =» BIT1 3; IFEN - FORMATTER ENABLE 
268 000001 wc .IGO = BITO :GO 
269 
270 :¢ 
os sBSEL1 CODES FOR WRITE FORMAT 
ied 
273 000200 WF .IHISP s BIT7 sIHISP - HIGH SPEED 
274 000100 WF .IWRT « BIT6 ;IWRT - WRITE 
275 000040 WF .IREV = BITS sIREV - REVERSE 
276 000020 WF .IWM = BIT4 sIWFM - WRITE FILE MARK 
277 000010 WF .IEDIT = BITS sIEDIT - EDIT 
278 000004 WF. IERASE * BIT2 sIERASE - ERASE 
279 000002 WF .I3RESV = BIT1 sIRESV3 - RESERVED 3 
a 000001 WF .I4RESV = BITO sIRESV4 - RESERVED 04 
282 :¢ 
= 3BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 
g° 
285 000200 MS .EXT = BIT7 sINVERT SENSE OF EXTENDED FEATURES SWITCH 
286 000020 MS .RSFIFO = BIT4 sRESE1 FIFO AND INPUT PARITY ERRORR 
287 000010 MS .RSTAPE = BIT3 sRESET TAPE STATUS IN 2 FLIP-FLOPS 
288 000006 MS.ATTN =» BIT2!BIT1 V ATTENTION TRIGGER FIELD 


289 000001 MS.RSO * BITO s;RESET TIMER A,B THEN DELAY TIMES IN SEL2 
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3° 
; MS.ATTN SUBCODES 


sNO-OP (NOTHING TRIGGERED) 


sSIMULATE ON-LINE/OFF-LINE TRANSISTION 


SEQ 0032 


sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 


sFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 


3° 
; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 


s INTERRUPT REQUEST (0-1 
sTAPE DATA DIRECTION OUT (0 IN) 


sWRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 


ENABLE 


; CUNDEF INED ) 


WORD #6 BYTE 1 PARIN H 


WORD 08 BYTE 0 


MSA.NOP = O«2 
MSA.VOL = 1le2 
MSA.NRAM= 2e2 
MSA.FRAM= 3e2 
g° 
NP .IR * BIT7 
NP .OUT = BIT6 
NP .LOOP = BITS 
NP .WRP = BIT4 
a 
; READ STATUS MESSAGE BUFFER BIT DEFINITIONS 
a= 
S2.0IM = BIT7 
S2.ILwW = BIT6 
S2.OUTRDY * BITS 
S2.INRDY = BIT4 
52. ATIMR = BITS 
S2.B7IMR = BIT2 
. UNDEF = BIT1+BITO 
S$1.PARIN * BIT1S 
$1. I2RESV = BIT14 
$1. I1RESV = BIT13 
$1.IE0T = BITi2 
$1. IIDENT = BIT11 
$1. ICER = BIT1O 
S1.IFMK = BITS 
51.IHER = BITS 
SO. ISPEED = BIT7 
SO.IRDY = BIT6 
SO. IONL * BITS 
SO. ILOP = BIT4 
SO. IDOBY = BITS 
SO. IRWD = BIT2 
SO. IFBY =» BIT1 
SO.IFPT = BITO 


ec of oe os Ge Gf G2 Ge Ge GF Ge OF &y GF GF Ge Ge Se ee GF SF OF 


1 TRANSITION) 


TRANSPORT LOOPBACK 


sWORD 69 BYTE 2 ryt IN MISS 
LW 


TIMER A FLAG H 
TIMER B FLAG H 


IRESV2 
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-SBTTL SPECIAL MACROS AND OPDEFS. 


;SAVE GENERAL REGS 1 TO 5 
.? 


-MACRO SAVREG 
JSR RS ,REGSAV 
. ENOM 


3¢ 
; MACRO TO FORCE AN ERROR 


“MACRO FORCERROR TAG ,NOTSSR 

TIF NOF LISTALL, .NLIST 

iF B NOTSSR 

“ite MOV TSSR(RS),R1 ;READ TSSR 

: MOV FORCER,FORCER ;IS FORCER SET? (LEAVE C BIT ALONE) 
BNE TAG 3BR IF YES 

.NLIST 

“IIF NOF LISTALL, .LIST 

"LIST 

ENDM 

3¢ 

; MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 

: WILL EXIT TO 4 LABEL IF FORCER IS NEGATIVE 

; SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 

; FORCER TO 177777 

: TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 

hg 

- MACRO FORCEXIT TAG 


~NL 
-ITIF NOF LISTALL, .NLIST 
-LIST 


MOV FORCER,FORCER ;IS FORCER NEGATIVE? 
BMI TAG 38R IF YES 


-NLIST 
-IIF NOF LISTALL, .LIST 
-LIST 


3° 

: MACRO TO INCREMENT ERROR COUNTS 

“HACRO NEXT . ERRNO 

s33.IIF NOF vw Heed -NLIST 
ERRNO=E +1 

333.I1IF NOF LISTALL, .LIST 


-LIST 
.ENOM 


SEQ 00353 
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:MACRO TO PERFORM XOR 


FORCER: : 


- MACRO ~e A,B 
MOV »- CSP) 
BIC 8: (SP) 
BIC A.B 
BIS (SP)+,B8 
.ENOM 


EN=0 ; INITIALIZE ERROR NUMBER 
.SBTTL FORCER - FORCE ERROR FLAG 


THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 


0 s FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 


; - BY THE MACRO “IFERROR”). AN ERROR NEED NOT 
; - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 


SEQ 0034 


JS 
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GLOBAL DATA SECTION 
411 .SBTTL GLOBAL DATA SECTION 
4le 
413 
414 ‘THE GLOBAL DATA 3 CONTAINS DATA THAT ARE USED 
415 ;IN MORE THAN ONE TEST 
416 '** 
4i 
418 ; 
419 ; THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
420 ;SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 
421 i 
422 002170 000000 EPRTSW:: -WORD O sPRINT SWITCH 
423 002172 000000 UNITN:: -WORD O sUNIT @ UNDER TEST. 
424 002174 000000 QvP:: -WORD O sQUICK VERIFY FLAG. 
425 902176 000000 CSRADOR . WORD sADDRESS OF CSR FOR CURRENT DEVICE 
426 002200 000224 IVEC . WORD H INTERRUPT VECTOR 
427 002202 000200 IPRI -WORD PRIO4 sINTERRUPT PRIORITY. 
428 002204 000000 TSTCNT -WORD O sNUMBER OF TESTS RUN IN THIS PASS 
429 002206 000000 LOOPCNT -WORD O een ITERATION T a TEST 
430 002210 000000 DEVCNT -WORD O VICE 
431 002212 000000 FATFLG -WORD O SSET IF FATAL ERROR IS DETECTED IN TEST 
432 002214 000000 INTRECV -WORD O sSET IF TAPE INTERRUPT WAS RECEIV 
433 002216 000000 EXTFEA -WORDB O sEXTENDED FEATURES SOFTWARE SW O=OFF;1=0N 
434 002220 000000 BENBSW -WORD O sBUFFER ENABLE SWITCH SW O=OFF;1=0N 
435 002222 000000 -WORD O sEXPECTED RAM DATA FOR AMPKT ROUTINE 
436 002224 000000 RECV -WORD O sRECEIVED RAM DATA FOR PRAMPKT ROUTINE 
437 002226 000000 ERRHI -WORD O sHIGH ADDRESS MEMORY ERROR 
438 002230 000000 ERRLO -WORD O sLOW ADORESS MEMORY ERROR 
439 002232 RAMDATA -BLKW 16. SOATA READ FROM RAM PACKET OR — BUF AREA 
440 002272 000000 RAMSIZ -WORD O sRAM DATA SIZE FOR PRAMPKT ROUTINE 
441 002274 000000 RCVHIADD -WORD O sRECEIVED BUFFER HIGH ADDRESS 
442 002276 000000 RCVLOADD -WORD O sRECEIVED ht = LOW ADDRESS 
443 002300 000000 COUNT : -WORD O 3s TEST ae PATTERN 
444 002302 000000 DATA -WORD O sTEST DATA 
445 002304 000000 TSTFLAG: : «WORD O sTEST FLAG WORD 
446 0023506 000000 TSTPTR -WORD O ;TSTBLK POINTER 
447 002310 000000 -WORDB O sPRINT ROUTINE TEMP 
448 002312 EXPMSG -BLKB 100. sEXPECTED MESSAGE BUFFER DATA 
449 002456 RECMSG -BLKB 100. sRECEIVED MESSAGE BUFFER DATA 


450 002622 TMPBFR: : ‘BLKB BO. ; TEMPORARY STORAGE FOR PRINT 
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.SBTTL TSTBLK - TEST DATA TABLE 


3¢ 


; THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
; 
IN SEQUENCE THE DATA IS: 


; ALL ZEROS 

; ALL ONES 

; WALKING ONES 

; WALKING ZEROS 

: ALTERNATING ONES AND ZEROS 


te) sALL ZEROS 
177777 sALL ONES 
BITO sDATA FOR WALKING ONES 


sDATA FOR WALKING ZEROS 


125252 sALTERNATING ONES, ZEROS 
052525 sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 


SSSSSSESSESSSSESSESSSSS SSSSSRSSSSESS 


TBLEND==. 


SEQ 0036 





SS 
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GLOBAL ENVIRONMENT STORAGE 
507 .SBTTL GLOBAL ENVIRONMENT STORAGE 
508 ; 
509 ;STORAGE FOR DEVICE REGISTERS 
510 3 
511 003052 000000 100000 000000 DUMMY: 0,100000,0,0 ;DUMMY DEVICE REGISTERS... 
512 003062 000000 000000 000000 0,0,0,0,0,0,0,0 | 
513 ;...FOR MULTI-UNIT CHECKOUT. 
514 
515 003102 000000 DUFLG WORD O ; "DROPPED UNIT” FLAG. 
516 ;INHIBITS CODE IN “CLEAN-UP”. 
517 003104 000000 NODE Vv WORD 0 ;FLAG TO SAY NO DEVICE. 
518 
519 003106 000000 TEMP 1 .WORD O ;SOME TEMP LOCATIONS. 
520 003110 000000 TEMP2 -wORD O 
521 003112 000000 xXCOMM . WORD 0 ;XXDP+ COMM BLOCK POINTER. | 
S22 003114 000000 FREE . WORD 0 31ST FREE MEMORY ADORESS... 
523 003116 000000 FRESIZ . WORD 0 ;...AND SIZE CIN WORDS). 
524 003120 000000 FREEHI: .WORD 0 ;LAST WORD IN FREE SPACE 
525 003122 000000 KTFLG -WORD 0 sKT11, MEM AVAIL FLAG - j 
526 ;- .WORD 1” Rican 
527 3- NZ = >24K AND K 
5286 003124 000000 K TENABLE . WORD c¢) ;SET BY TEST ROUTINES TO FLAG >28K UNDER TEST 
529 003126 000000 NXMFLG . WORD 0 ;SET IF WE CAN TEST CLEARED OTHERWISE 
530 003130 000000 NXMLO . WORD t¢) ;NXM LO ADDRESS BITS 
531 003132 000900 NXMHI . WORD 0 3NXM HI ADDRESS BITS FOR DAL'S 16-21 
532 003134 000000 T23A . WORD 0 311/23A FLAG 
533 003136 000000 T238 . WORD 0 311/238 FLAG 
003140 000000 T3BFLG . WORD 0 ;TEST 38 FLAG tO 
535 003142 002000 PST32W . WORD 2000 ;32W BLOCK ADDRESS FOR 32K START 
536 003144 000000 SIFLAG . WORD 0 3 
537 003146 000000 BADDAT . WORD 0 sACTUAL DATA 
538 003150 000000 GODAT . WORD 0 seXPECTED DATA 
539 003152 000000 LOOPFL . WORD 0 
540 003154 CTAB ;CONFIGURATION TABLES. 
541 003154 000000 CTABM . 49RD 0 sCONFIG WORK. 
542 003156 000000 .wORD O 
543 003160 000000 . WORD 0 
544 003162 000000 -WORD O 
545 003164 177777 .WORD -l ;END OF MEM TABLE. 
546 003166 CTABE:: 
otf ;ERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 
549 F 0 a UNIT NOT TESTED 
550 3 100000 = UNIT ONLINE, NO ERRORS 
551 ; 10XXXxX = UNIT ONLINE, ENCOUNTERED XXXxX ERRORS 
552 : 160000 = UNIT DROPPED, NON-EXISTENT ht REGISTER 
553 ; 160001 = UNIT DROPPED, NOT IDL! AT STAR 
Sng : 14XXXX = UNIT DROPPED, ENCOUNTERED XXXx Tennons 
556 003166 ERTABL: .BLKW 64. 
_ 003366 000000 ERTABE: . WORD 0 


559 003370 000000 SKIPT: .WORD 0 ;1=*SKIP SUBTEST O=NO SKIP OF SUBTEST 
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Mz 


.SBTTL GLOBAL TEXT MESSAGES 


; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
; MORE THAN ONE TEST. 


: NAMES OF DEVICES SUPPORTED 


DEVTYP <TSVOS> 

LSDOVTYP:: 
.ASCIZ /TSVO5S/ 
EVEN 


;TEST DESCRIPTION 
DESCRIPT <#eee TSVOS LOGIC DIAGNOSTIC - CHK CABLES-TRANSPORT IF ERR seee> 


~ ASCIZ /#eee TSVOS LOGIC DIAGNOSTIC - CHK CABLES-TRANSPORT IF ERR seee/ 


L$DESC 


;BIT TO ASCII CONVERSION FOR TSSR REGISTER 
TSSRBIT: : 


. WORD 1$,2%,3%,4%$,5%$,6%,7$,8$% 
. WORD 9¢,19$,11$,12$,135$,14$,15$,16$ 
1$ -ASCIZ ‘SC’ 
es -ASCIZ ‘BIE’ 
3$ Ain °* Ste" 
4s -ASCIZ ‘RMR’ 
5$ -ASCIZ ‘NXM’ 
6% -ASCIZ ‘NBA’ 
7$ -ASCIZ ‘BIT9' 
8$ -ASCIZ ‘6IT8' 
9$ -ASCIZ ‘SSR’ 
10$ -ASCIZ ‘OF.’ 
11$ -ASCIZ ‘BITS’ 
12% -ASCIZ ‘BIT4’ 
13% -ASCIZ ‘BITS 
14% -ASCIZ ‘BIT2’ 
15% -ASCIZ ‘BIT1' 
16% -ASCIZ ‘BITO’ 
. EVEN 
SFIERR: .ASCIZ ‘TSSR ERROR AFTER SOFT INIT’ 
SFHERR: .ASCIZ ‘TSSR ERROR AFTER BUS RESET 
NXR : -ASCIZ / NON-EXISTANT DEVICE REGISTER/ 
NXRX ; -ASCIZ /#A ADDRESS: #06/ 
TSSX ASCII /#A TSBA,TSSR EXP’D: “068A, 8068N/ 
-ASCIZ /S8A TSBA,TSSR REC'D: s068A,806/ 
FUSI: -ASCII /sNSA/ 
USI: -ASCIZ / UNEXPECTED INTERRUPT 
I: .ASCIZ / INTERRUPT EXPECTED. NOT RECEIVED/ 
FNOINTR -ASCII /NSA/ 
NOINTR: .ASCIZ / NO INTERRUPT WAS GENERATED/ 
IFAULT: .ASCIZ / INTERRUPT FAULT/ 


INTX: -ASCIZ /#A CPU PC: 068A TSBA: #806/ 


SEQ 0038 
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040 042 NOINIT: .ASCIZ / “BUS-INIT” DION’ T INITIALIZE CONTROLLER/ 
04c O42 NSINIT: .ASCIZ / “SOFT-INIT” DION’T INITIALIZE THE DPU/ 
040 042 BRINIT: .ASCIZ / “BUS-RESET” DIDN'T INITIALIZE THE DPuU/ 
NUL : -ASCIZ // 
116 000 6NULCR -ASCIZ /@N/ 
101 040 EXPGOT: .ASCIZ /#A EXP’D: SO68A, REC'D: #06/ 
116 045 EXPGT2: .ASCIZ /SNBA EXP’D: SO6SA, SOGENBA REC'D: SOSA, 506/ 
101 040 ODUADI2: .ASCIZ /SA REG(W) WRITTEN TO: SO6S8A REG(R) READ; EXP’'D: s068A, REC'D: 806/ 
101 115 PKTRAM:: -ASCIZ ‘RAM Contents Do Not Metch Pecket Set’ 
040 103 SCME: -ASCIZ / CONFIG DOESN’ T MATCH MFG. MASTER/ 
122 111 WRTMSG: .ASCIZ ‘WRITE CHARACTERISTICS Fei led’ 
123 123 WRTERR: .ASCIZ ‘TSSR Incorrect After WRITE Command, More Bits Set Than SSR’ 
123 123 RDERR: .ASCIZ ‘TSSR Incorrect After READ Commend, More Bits Set Than SSR’ 
101 124 SCHERR: .ASCIZ ‘FATAL ERROR IN SUBTEST - CHECK TAPE.CABLES, TRANSPORT etc. 
122 122 RETERR: .ASCIZ ‘ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED’ 
116 045 NOMEN: .ASCIZ ‘SNA seeeee NO NXM ADORESS--CANNOT TEST NXM TIMEOUT. esccesn’ 
116 045 B186: .ASCIZ ‘SNBA cocececessesesese 11/23A SYSTEM seccecesessesesseeN’ 
116 045 ™6189 .ASCIZ ‘GNA soeceseseseceseses 11/238 SYSTEM seccesesesesesesotN 
.EVEN 
.SBTTL GLOBAL ERROR REPORT SECTION 
; THE GLOBAL ERROR REPORT +g CONTAINS THE PRINTB AND PRINTx 
; CALLS THAT ARE USED IN MORE THAN ONE TEST. 
; ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 
= BGNMSG NXRERR :;NON-EXISTANT DEVICE REGISTER. 
PRINTX @NXRX,NODEV :NODEV = NEXM ADORESS. 
003104 SOV NODE V , -( SP) 
003775 MOV @NARX, -( SP) 
000002 MOV @2,-(SP) 
MOV SP, 
TRAP CSPNTX 
000006 ADO 66,SP 
005766 JSR PC EXTEND ; PRINT EXTENSION IF REQUIRED. 
ENDMSG 
L10002: 
TRAP C$MSG 
; THIS ROUTINE APPENDS A UNIQUE EXTENSION (CIF REQUIRED) 
; TO ANY OF THE ABOVE ERROR SIGNATURES. 
EXTEND: TST (PC)-+ 
EXTA: - - ; O = NO EXTENSION. 
177770 JSR PC,@EXTA ; APPEND EXTENSION TEXT. 
1$: PRINTX @NULCR ; PRINT A BLANK LINE 
004526 MOV @NULCR , -( SP) 
000001 MOV #1,-(SP) 
MOV SP, 
TRAP CS$PNTX 
000004 ADD 04, 
RTS PC 


eee ee ee 
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PRITSSR - PRINT TSSR CONTENTS 
674 .SBTTL PRITSSR - PRINT TSSR CONTENTS 
675 
os ze 
677 H 
678 sROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
679 sTHE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
680 :B8Y A MESSAGE PRINTING ROUTINE 
681 3 
682 s INPUTS: 
683 : 
684 F R1 CONTENTS OF TSSR 
685 3 
oe sSUBORDINATE ROUTINES: 
68 3 
4 3 CHKAMB CHECK FOR AMBIGUOUS CONTENTS 
3 
690 3° 
691 
692 006022 PRITSSR 
693 006022 AVREG sSAVE GENERAL REGISTERS 
694 006026 010104 Vv 1,R4 sSAVE THE TSSR CONTENTS 
695 006030 PRINTB @TSSRFOR ,R4 sPRINT THE CONTENTS OF TSSR 
006030 010446 Vv 4,-C(SP) 
006032 012746 006505 MOV @TSSRFOR, -( SP) 
006036 012746 000002 MOV @2,-(SP 
096042 Ol SP ,RO 
006044 104414 TRAP CSPNTB 
006046 062706 000006 ADO 2 SP 
696 006052 010400 MOV R4,RO sGET TSSR BACK FOR CHKAMB 
697 006054 004737 016134 JSR PC, CHKAMB sARE CONTENTS AMBIGUOUS ? 
698 006060 103410 6cs sBRANCH IF NOT 
699 006062 PRINTX TSSR sSHOW CONTENTS ARE AMBIGUOUS 
006062 012746 006725 OAMBTSSR, -( SP) 
006066 012746 000001 MOV #1, -(SP) 
006072 010600 MOV »RO 
006074 104415 TRAP CSPNTX 
006076 062706 000004 ADO ayo 
700 006102 010403 5$: MOV R3 eat OF TSSR 
701 006104 042703 001476 BIC SnLADORFATERR: TERCL SR sCLEAR ALL MULTIPLE BIT FIELDS 
702 006110 001434 BEQ 20% NO ins ARE SET 
703 006112 012702 2 OTMPBFR .R2 sTEMPORARY ASCII BUFFER 
704 006116 012701 003500 MOV @TSSRBIT,R1 sASCII EQUIVALENT OF BITS 
705 006122 005703 108%: TST R3 sREMAINING BITS TO CONVERT 
706 006124 001413 BEQ 15% 8 WHEN ALL ARE DONE 
707 006126 000241 cic sCLEAR CARRY FOR SHIFT 
708 006130 006103 ROL R3 iSHIFT NEXT i an CARRY 
709 006132 103006 Bcc 13% sBRANCH IF BIT T SET 
710 006134 011100 MOV (R1),RO sPOINTER TO BIT MD EFINITION 
711 006136 118: MOVB (RO)+,CR2)- sMOVE ASCIZ TO BUFFER 
712 006140 001376 BNE 11% sMOVE ALL BITS 
713 006142 112762 000054 177777 MOvVB @’,,-1CR2) TINSERT A COMMA TO TERMINATE 
714 006150 005721 13%: TST CR1)-> sPOINT TO NEXT DESCRIPTION 
715 006152 000763 BR 106 3GET THE REMAINING BITS 
716 006154 105042 15$: CLRB -(R2) s TERMINATE THE LINE 
717 006156 PRINTX @TSSDEF , OTMPBFR iPRINT THE BIT DEFINITIONS 
006156 012746 002622 MOV OTMPBFR, -(SP) 
006162 012746 006676 MOV @TSSDEF , -( SP) 


ae 
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000006 


177761 
006 766 


006566 
000002 


000006 


177717 


007326 


000006 
176377 


006525 


000006 
002170 
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20s: 


30%: 


@2, -( SP) 
SP ,RO 
CSPNTX 
06, SP 


R4,R3 
@rCTERCLS,R3 
TCOCOO( RS) ,R3 
Ny Ti 


4,R3 
@rCFATERR,RS 
25% 
R3 
R3 


a3 
TSFCOOC(R3),R3 
@TFCASC ,R3 
R3, -(SP) 
@TFCASC, -( SP) 
@2,-(SP) 


3EQ 004} 


sGET THE TSSR CONTENTS 

sCLEAR ALL BUT TERMINATION 

sGE1 THE TERMINATION CODE MEANING 
sPRINT THE TERMINATION CODE 


sTSSR CONTENTS AGAIN 
sCLEAR ALL BUT FATAL TERMINATION 
sDON’T PRINT IF ZERO 


sALINE TERMINATION CODE FOR INDEX 
sGET THE FATAL TERMINAT ON CODE 
sPRINT THE FATAL TERMINATION CODE 


sCLEAR ALL BUT EXTENDED ADORESS 
sO00N'T PRINT IF ZERO 
sPRINT THE EXTENDED ADORESS BITS 


sPRINT MEAASGE BUFFER ADDRESS 
sPRINT PROPER MESSAGE 


sRETURN TO CALLER 


MACRO M1113 
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748 006356 045 
749 006446 045 
755 006505 045 
756 006525 045 
757 006566 045 
758 006627 045 
7S9 006676 045 
760 006725 045 
761 

762 006766 007006 
763 007006 116 
764 007031 124 
76S 007057 124 
766 007101 106 
767 007121 122 
768 007203 122 
769 007252 125 
770 007276 106 
771 

772 

773 007326 007336 
774 007336 111 
775 007372 122 
776 007403 102 
777 007447 122 


14-JUN-84 14:17 


216 045 
116 045 
116 045 
116 s 
116 045 
116 045 
116 045 
116 045 
007031 007057 
157 162 
145 162 
141 160 
165 156 
145 143 
145 143 
156 162 
141 164 
007372 007403 
1 164 
145 163 
165 163 
145 163 


EPRT1: .ASCIZ 
EPRT2; .ASCIZ 
TSSRFOR: 
TEXASC 
TCOASC 
TFCASC: 
TSSDEF : 
AMBTSSR: 

.EVEN 
TCOCOO: .WORD 
1$: -ASCIZ 
2s .ASCIZ 
3$ .ASCIZ 
4$ .ASCIZ 
S$ -ASCIZ 
6% .ASCIZ 
7$ .ASCIZ 
8s .ASCIZ 

E 
TSFCOO: .WORU 
1%: .ASCIZ 
es ASCIZ 
3$ .ASCIZ 
43% .ASCIZ 

EVEN 


| 4 


'SNBA eeeeeCHECK CABLES BETWEEN M7196 AND TRANSPORTeeees 
'SNBA seeeeCHECK TRANSPORTeesse’ 

‘SNA TSSR = 806' 

‘ 'SNBA Extended Address Bits = s06' 

-ASCIZ ‘SNSA Terminetion Cless Code «+ sT' 


ASCIZ ‘sNSA Fetel Termination Cless Code « sT: 
-ASCIZ ‘sSNA TSSR Bite Set: sT' 
-ASCIZ ‘SNSA TSSR Contents Are Ambiguous 


1¢,2$,3%.4¢,5%,6%,7%,8% 

‘'Normel Termination’ 

‘Termination Condition’ 

‘Tepe Stetuse Alert’ 

‘Function Reject’ 

'Recovereble Error - Tape Position One Record Down’ 
'Recovereble Error - Tape Wes Not Moved’ 
‘Unrecovereble Error’ 

‘Fetel Controller Error’ 


1%,2%,3%,4$% 

‘Internal Diegnostic Failure’ 
‘Reserved’ 

‘Bus Interface or Sanity Check Error’ 
‘Reserved’ 


SEQ 0042 


+ 


TSv3 
PRIPKT 


- GLOBAL AREAS 
- PRINT THE ADDRESS/CONTENTS CF COMMAND PACKET 


MACRO “1113 14-JUN-64 14:17 


003124 


007644 
000003 


000010 


017406 


007606 
000003 


000010 


116 
116 


. SBTTL 


E 4 


PRIPKT 


- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


; THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
sTHIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 


‘ 
: INPUT: 


108: 


15%: 


045 PKTFRM: 
045 PKTADD: 


-ASCIZ 
-ASCIZ 
-EVEN 


NUMBER OF WOROS IN PACKET 
OMMAND 


HIGH ORDER C 


PACKET ADDRESS 


ADORESS OF COMMAND PACKET 
R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 


) 
@PKTFRH, -(SP) 
#3, + 56SP) 


C$PNTB 
#10,SP 
R1 
R1,R5 
25% 


PC 


sSAVE THE REGISTERS 
:SAVE NO. OF oat MR ages aaa 


3;8R IF YES 

3SET HIGH ORDER ADORESS TO 0 
sCOPY HIGH ORDER ADORESS 
3GET LOWER ADDRESS 

;SHIFT BIT 15 INTO C BIT 
sAND INTO HIGH ORDER 

sPRINT PACKET ADDRESS 


sGET HIGH ORDER ADDRESS 
ABOV 


sGET LOW ORDER ADDRESS 

sSETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
sGET RETURNED PAR6 ADDRESS BIAS 

sSAVE WORD NUMBER 

sGET PACKET CONTENTS 

sPRINT THE DATA 


sNEXT WORD NUMBER 

;DONE ALL PACKET WORDS? 
;LOOP TILL ALL DONE 
sRETURN 


‘WNBA Packet Word @8D1SA = 806’ 
‘SNSA Packet Address = #01805’ 


SEQ 0043 


TSV3 - GLOBAL AREAS 


PRIBXOR - PRINT 


867 010032 
868 010032 
869 010036 010203 
870 010040 
871 010050 


MACRO M1113 
EXPD, RECV AND XOR BYTE 


177400 


000012 


116 


4 


14-JUN-84 14:17 


045 


-SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 


3° 
;PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
;THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


: 
;INP UTS: 


3 R1 RECEIVED DATA 
3 R2 EXPECTED DATA 
;OUTPUT 
H 
3 RO XOR OF EXPECTED/RECEIVED DATA 
PRIBXOR:: 
SAVREG sSAVE THE REGISTERS 
MOV R2,R3 sEXPECTED DATA 
XOR R1,R3 sFORM THE EXCLUSIVE OR 
MOV @tC<377>,RO sBYTE MASK 
BIC RO,R1 sSAVE LOW BYTE RECV 
BIC RO, | sSAVE LOW BYTE EXPD 
BIC RO,R sSAVE LOW BYTE XOR 
PRINTB OXORDFOR, R2,R1, a3 sPRINT THE MESSAGE 
MOV R3,- SP) 
MOV R1,-CSP) 
MOV R2,-(SP) 
MOV @XORBFOR, -( SP) 
MOV 64 ° -(SP) 
MOV SP RO 
TRAP CSPNTB 
ADD #12,SP 
MOV R3,RO sRO HAS XOR ON RETURN 
RTS PC ;RETURN TO CALLER 


XORBF OR : . -ASCIZ ‘sNSA EXPD: SO38A RECV: SO38A XOR: 803° 


-EVE 
-SBTTL PRIXOR - PRINT EXPD, RECV AND XOR 
3° 


;PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


F 

; INPUTS: 

3 

F R1 RECEIVED DATA 

3 ko EXPECTED DATA 

3; OUTPUT 

; RO XOR OF EXPECTED/RECEIVED DATA 

PRIXOR: : 
SAVREG ;SAVE THE REGISTERS 
MOV R2,R3 sEXPECTED DATA 


XOR R1,R3 sFORM THE EXCLUSIVE OR 
PRINTB @XORFOR,R2,R1, RB. sPRINT THE MESSAGE 


SEQ 0044 


TSV3 - GLOBAL AREAS 
- PRINT EXPD, RECV AND XOR 


PRIXOR 


872 


0246 
010056 012746 010102 
000004 


010072 062706 000012 


010076 010300 


873 010100 000207 


874 
875 
876 


010102 045 


116 


MACRO 11113 14-JUN-84 14:17 


MOV @XORFOR, - (SP) 
MOV 04,-(SP) 

MOV SP ,RO 

TRAP CsPNTB 

ADD @12,SP 

MOV R3,RO sRO HAS XOR ON RETURN 
RTS PC sRETURN TO CALLER 


045 XORFOR: i~Ty 'SNSA EXPD: SO68A RECV: SO6S8A XOR: 806’ 


SEQ 0045 


TSV3 - GLOBAL AREAS 


PRIEQU 


010150 
010150 
010154 000207 


010156 

010156 

010162 

010162 010446 
010164 012746 
010170 012746 
010174 010600 
010176 104414 
010200 062706 
010204 000207 


010206 045 


H4 j 


MACRO M1113 14-JUN-864 14:17 
- PRINT BIT NUMBERS AS ASCII EQUIVALENT 


010206 


116 


045 


.SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 


; 
sROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


; INPUTS: 


: RO OCTAL VALUE TO CONVERT 

: Ri TABLE OF POINTERS TO ASCII EQUIVALENT 

: 

PRIEQU: 
SAVREG ;SAVE THE REGISTERS 
RTS PC ;RETURN TO CALLER 


.SBTTL PRIRAM - PRINT RAM ADDRESS 
3¢ 


;PRINT CONTROLLER RAM ADDRESS. 
:THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


: 
; INPUTS: 
; Ra RAM ADDRESS 
PRIRAM: 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
PRINTB @RAMFOR,R4 sPRINT RAM ADDRESS IN ERROR 
MOV R4,-C(SP) 
MOV @RAMF OR , -( SP) 
MOV @2,-(SP 
MOV SP, 
TRAP CSPNTB 
ADO #6 ,SP 
RTS PC ;RETURN 
RAMFOR: — ‘sgNSA CONTROLLER RAM ADDRESS = #06’ 
. Vv 


SEQ 0046 


OEE CEL eR cS DARE OE! MAR tt och LEED 


TSV3 - GLOBAL AREAS 
PRIADD - PRINT MEMORY ERROR ADDRESS 


935 010316 
937 010320 


013702 
013701 


010146 


MACRO M1113 


002226 
002230 


010320 
000003 


000010 


116 


002226 
002230 


14-JUN-864 14:17 


045 


. SBTTL 


+ 


‘PRINT MEMORY 


14 


SEQ 0047 


PRIADD - PRINT MEMORY ERROR ADDRESS 


ADDRESS 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
; 
; IMPLICIT INPUTS 


, ERRHI 
; ERRLO 


SAVREG 


PRIAO: .ASCIZ 


- SBTTL 
3? 


- HIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 


sSAVE R1-RS UNTIL NEXT RETURN 
ADORESSS 


ERRHI ,RO ;GET HIGH 
ERRLO,R1 ;GET LOW ADDRESS 
R1,R2 sCOPY LOW ADDRESS 
R1 sSHIFT BIT 15 TO C BIT 
RO sSHIFT INTO HIGH ORDER 
@PRIAO,RO,R2 sPRINT MEMORY ADDRESS IN ERROR 
R2,-CSP) 
»-(SP) 
@PRIAO, -( SP) 
@3,-(SP) 
»RO 
CSPNTB 
#10,SP 
Cc sRETURN 


‘NSA MEMORY ERROR ADDRESS = #01805’ 


PRITADD - PRINT MEMORY TEST ADDRESS 


; 
sPRINT MEMORY ADDRESS 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


; 
; IMPLICIT INPUTS 


; 

: 

; 

* ed 
PRITADD: 


- HIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 


sSAVE R1-RS UNTIL NEXT RETURN 
ADORESSS 


ERRHI ,R2 sGET HIGH 

ERRLO,R1 sGEY LOW gon 

R1,R2 sCOPY LOW ADDRESS 

R1 sSHIFT BIT 15 TO C BIT 

RO ;SHIFT INTO HIGH ORDER 

Apts sPRINT MEMORY ADDRESS LOW IN ERROR 
@PRITO, -( SP) 

2, -( 

SP ,RO 

CSPNTB 


TSV3 - GLOBAL AREAS 


PRITADD - PRINT 


960 


010416 
010422 
010422 
010424 
010430 
010434 
010436 
010440 
010444 


010446 
010511 


MEMORY 
062 706 


010246 
012746 
012746 
010600 
104414 
062 706 
000207 


045 
045 


MACRO M1113 14-JUN-84 14:17 SEQ 
TEST ADDRESS — 
000006 ADD #6 , SP 
PRINTB @PRIT1,R2 sPRINT MEMORY ADDRESS HIGH IN ERROR 
MOV Re, -( SP) 
010511 MOV @PRIT1, -CSP) 
000002 MOV @2,-(SP) 
MOV SP ,RO 
TRAP CsPNTB 
000006 ADO 06 , SP 
RTS PC ;RETURN } 


116 045 PRITO: .ASCIZ ‘sNSA MEMORY TEST ADDRESS LOW = #06’ 
116 045 PRITL: yy ‘gNSA MEMORY TEST ADDRESS HIGH = #06‘ 


SS ht sss 


4 


TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-64 14:17 s€Q 0049 


SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
967 .SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
968 
969 se 
970 : 
971 sRO.TINE TO ISSUE A SPACE RECORDS 
972 ;COMMAND (FORWARD OR REVERSE ) 
973 H 
974 ‘; INPUT: 
975 3 
976 F R3 NUMBER OF RECORDS TO BE SPACED OVER 
977 8 BIT1S CONTROLS DIRECTION 
978 3 BIT15 = O IS FORWARD 
979 3 BIT15 = 1 IS REVERSE 
980 3 RS FIRST DEVICE UNIBUS ADDRESS 
981 F 
es $ REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 
98 3 
984 ;OUTPUT: 
985 8 
986 3 CARRY SET - SPACE RECORDS COMMAND OK 
987 3 CLR - SPACE RECORDS FAILED 
988 3 
989 g 
Ne ; RO THE CONTENTS OF R4 IS MOVED TO RO 
1 3 

992 3 
404 ; IMPLICIT OUTPUT: 
a ; TAPE HAS BEEN MOVED 
997 | SIDE EFFECTS: 
998 ; 
999g ; 
1000 z- 
1001 
1002 010556 SPACE 
1003 010556 SAVREG ;SAVE THE _— REGISTERS 
1904 010562 012727 000764 010750 MOV » SDELAY ;SET UP DELA 
1005 010570 012737 140010 010740 MOV #140010, 80$ ;SET UP COMMAND. SPACE FORWARD 
1006 010576 005703 TST R3 ;CHECK FOR DIRECTION 
1007 010600 10040 BMI 5$ s8R, IF REVERSE INDICATED 
1008 010602 010337 010742 MOV R3,90$% sLOAD UP NUMBER OF RECORDS TO SPACE 
1009 010606 7 BR 10$ :G0 00 
1010 010610 042703 100000 5$: BIC 8IT15,R3 ;CLEAR DIRECTION BIT 
1011 010614 010337 010742 MOV 90% 3LOAD UP NUMBER OF RECORDS TO SPACE 
1012 010620 7 000400 010740 BIS BITS, 80% ;SET REVERSE BIT IN COMMAND PACKET 
1013 010626 012704 010740 10$: MOV $,R4 ;SET UP R4& WITH PACKET ADDRESS 
1014 010632 010465 000000 MOV R4, TSOBC(RS) ;SEND OUT COMMAND 
1015 010636 004737 016340 15%: JSR PC ,WAITF ;WAIT FOR SSR 
1016 010642 103420 BCS 20% ;68R, IF SSR IS SET AND OK 
1017 010644 DELAY 250 ;DELAY agout .25 SECONDS 

010644 012727 000250 MOV #250,(PC)-+ 

010650 000000 - 0 

010652 013727 002116 MOV LSDLY,(PC)-+ 

010656 000000 . WORD i?) 

010660 005367 177772 DEC -6(PC) 

010664 001375 BNE .-4 


TSV3 - GLOBAL AREAS 


SPACE 


- SPACE 


010666 
010672 
010674 
010700 
010702 
010704 
010710 
010714 
010716 
010720 
010722 
010724 
010726 
010730 
010730 
010732 


010740 


010742 
010744 
010746 
010750 


MACRO M1113 14-JUN-84 14:17 
RECORDS (FORWARD AND REVERSE) COMMAND 


-22(PC) 


TSSR(RS),R1 
@SSR ,R2 
R2,R1 

40% 

60$ 


70$ 


R4,RO 
PC 


;PACKET FOR SPACE COMMAND 


005367 177756 DEC 
001367 BNE 
005337 010750 DEC 
001356 BNE 
000411 BR 
016501 000002 20$ MOV 
012702 000200 MOV 
020201 25% CMP 
001401 BEO 
000402 BR 
000261 40$ SEC 
000401 BR 
000241 60$: CLC 

708%: 
010400 MOV 
000207 RTS 
010740 

;COMMAND WORD 
000000 80% 

‘ 
000000 90 
000000 . WORD 
000000 . WORD 
000000 SDELAY: .WORD 

VEN 


€ 
-SBTTL WRICHR 


.*¢, 1026177770 


te) 


SEQ 0050 


;BUMP DELAY COUNTER DOWN 
sBR, IF MORE DELAY 

;8R IF TROUBLE CARRY = CLEAR 
sREAD TSSR 

sSET UP EXPECTED 

sARE THEY OK 

;BR, IF EQUAL = OK 

; TROUBLE EXIT 

;SET CARRY NO TROUBLE 
3;EXIT 

;CARRY CLEAR = ERROR 


sPASS PACKET ADDRESS 
;RE TURN 


: . WORD 
— OF RECORDS TO BE SPACED OVER WORD 


sDELAY COUNTER 


- WRITE CHARACTERISTICS COMMAND 


TSsv3 
WRT 


GLOBAL ARE 


CHR - WRITE EMARACTERISTICS COMMAND 


1074 010752 


1030 
1090 011032 


1104 011102 


MACRO M1113 


URTCHR: : 
002220 
002216 
000000 10$: 
016426 
000002 20%: 
000200 
000100 
000100 

25%: 
000010 40$: 
000200 000012 
002216 

45s: 
000100 000012 
002220 

50$: 

605: 
000002 70%: 


14-JUN-84 14;17 


Mg 





;ROUTINE TO ISSUE A WRITE CHARACTERISTICS 


;COMMAND SO THAT OTHER COMMANDS WILL BE 


: 


OUTPUT: 


" Ra 


RS 


RO 
CARRY 


ACCEPTED 


ADORESS OF PACKET FROM TEST 
FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 


TSSR CONTENTS 


SET - WRITE CHARACTERISTICS COMMAND Ok 
CLR - WRITE CHARACTERISTICS FAILED 


IMPLICIT OUTPUT: 


MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
SOFTWARE SWITCHES SET AS FOLLOWS: 

EXTFEA = EXTENDED FEATURES PRESENT 
BENSSW = BUFFER ENABLE SWITCH ON OR OFF 


;SIDE EFFECTS: 


RTS 


R3 
one. LEXTF , XST2CR3) 
EXTFEA 
@X2 .BUFE ,XST2(R3) 
50$ 
BENS SW 


708 
TSSRCRS ) RO 
PC 


SAVE THE GENERAL REGISTERS 


; 
;CLEAR BUFFER ENABLE SWITCH 


;CLEAR EXTENDED FEATURES SW SWITCH 
;SEND CUT COMMAND 

;WAIT FOR SSR 

;BR, IF SSR IS SET AND OK 
;8R IF TROUBLE CARRY = CLEAR 
;READ TSSR 

;SET UP EXPECTED 

sWAS OFF LINE SET IN TSSR 
:BR, IF NO OFL SET 

;MAKE THEM LOOK ALIKE 

;ARE THEY 


sPOINT TO WRT CHARA DATA PACKET 
sGET ADORESS OF MESSAGE BUFFER 
sEXTENDED FEATURES BIT SET? 


:BR IF NO 
sSET EXTENDED FEATURES SW SWITCH 


sBUFFER ENABLE SWITCH SET 
;BR, IF SWITCH NOT SET 
sSET SOFTWARE SWITCH FOR ENABLED 


;SET CARRY NO TROUBLE 


;EXIT 
;CARRY CLEAR = ERROR 
;RETURN TSSR CONTENTS 


;RE TURN 


SEQ 0051 


Tsv3 


- GOBAL AREAS 


MACRO M1115 


N4 


14-JUN-64 14:17 SEQ 0052 


REWIND - POSITION TAPE (REWIND) COMMAND 


1106 
1107 
1108 
1109 
1110 
1311 
ille 
1115 
i114 


011172 


011200 
011200 
011202 


002116 
177772 
177756 


.SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 


;THIS ROUTINE WILL REWIND THE SELECTED TAPE. 


; CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 
, TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
: SSR TO SET IN THE TSSR 


;CALLING SEQUENCE: 

DO A SOFT INIT 

DO A WRITE CHARACTERISTICS 
JSR PC, REWIND 


INPUT: 
; RS FIRST DEVICE UNIBUS ADDRESS 
;OUTPUT 
; RO THE CONTENTS OF R4 IS PASSED TO RO 
REWIND: : 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
MOV ORWPACK ,R4 ;GET PACKET ADDRESS 
MOV R4, TSDBCRS) ;SEND PACKET ADORESS TO EXECUTE 
MOV €360. ,R3 ;ENOUGH TIME FOR 2400' REEL TO REWIND 
10$: JSR PC, WALTF ;WAIT FOR SSR TO SET 
BCS 208 ;LEAVE WHEN SSR IS SET 


250. sWAIT FOR .25 SECONDS 
MOV 0250. ,(PC)+ 
-WORD O 


-WORD O 

DEC -6(PC) 

BNE .-4 

DEC -22(PC) 

BNE .-20 

DEC R3 ;BUMP COUNTER DOWN 

BNE 10$ sKEEP GOING 

CLC ;CLEAR CARRY TO SET ERROR 
20%: MOV R4,RO ;PASS THE PACKET AODRESS 

RTS PC ;RETURN 

-*<,+10>€177770 
RWPACK : 

-WORD 102010 sPOSTION COMMAND (REWIND) 

-WORD O ;NOT USED 





—— i Oe ee ee 


TSv3 - GLOBAL AREAS 


CKRAM 


1196 011270 
1199 011272 


1205 011312 


MACRO M1115 


COMPARE RAM TO I/0 PACKET 


002232 
000201 


016426 
000000 
016426 
000000 
016426 
000000 


000210 


14-JUN-64 14:17 


. SBTTL 


CKRAM 


- COMPARE RAM TO 1/0 PACKET 


; 
sROUTINE TO READ THE FIRST 6 BYTES FROM RAM 
AND COMPARE THIS DATA TO A COMMAND PACKET. 


sMEMORY 
F 
; INPUT: 


i 
3 
é 
é 
3 
; 
3 
+ 
’ 
3 


CKRAM: : 


10$: 


30%: 
000010 002272 50%: 


CARRY 


SIDE EFFECTS: 


S OF THE COMMAND PACKET 


SET - RAM MATCHES PACKET 


ADORE S 
FIRST DEVICE UNIBUS ADDRESS 


CLR - RAM DOES NOT MATCH PACKET 
sIMPLICIT OUTPUT: 
THE TABLE og toy IS FILLED WITH THE 


DATA HELO IN R 
RAMSIZ IS SET 10. 8. FOR PRAMPKT ROUTINE 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


»CHKTSSR 
TSBACRS),(R1) 
(R1)+, CRO) 
20% 


sSAVE THE GENERAL REGISTERS 

sADORESS TO SAVE THE RAM DATA 

sBYTE “7 on OF —— RAM DATA 
ERROR FLAG 


sCOMPARE TO EXPECTED 

sBRANCH IF = 

sSET ERROR FLAG 

sADORESS OF NEXT RAM LOCATION 
} REACHED END YET ? 

sBRANCH TILL ALL READ 

sWAS AN ERROR FOUND ? 

sBRANCH IF NOT 

sCLEAR CARRY TO SHOW ERROR 
sAND EXIT 

sSHOW GOOD COMPARE 

sSETUP RAMSIZ FOR PRAMPKT ROUTINE 
sRETURN 


SEQ 0053 


32 
1233 011314 
1234 011314 


1251 011410 
1252 011416 
1253 011422 


eo 
ARE Ran TOT BOCHARAC TEAT TS 


012701 
012702 


002232 
000167 


016426 
00000C 
016426 
G00000 
016426 
000000 


000010 
002216 


000012 
000200 


000176 


- JUN - 84 4a 1? SEQ 0054 


TICS DATA 


-SBTTL CKRAM2 - COMPARE [9AM 10 1/0 CHARACTERISTICS DATA 


;ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 


sMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 
3 

; INPUT: 

; 

3 Ra ADDRESS OF THE CHARACTERISTICS DATA 

3 RS FIRST DEVICE UNIBUS ADDRESS 

;OUTPUT 

3 

; CARRY SET - RAM MATCHES PACKET 

F CLR - RAM DOES NOT MATCH PACKET 


i 
sIMPLICIT OUTPUT: 
; 

THE TABLE RAMDATA IS FILLED WITH THE 

DATA HELO IN RAM. 

RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 
SIDE EFFECTS: 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


; 
i 
3 
; 
; 
; 
te 
C 


KRAM2 : 
* SAVREG sSAVE THE GENERAL REGISTERS 
MOV @RAMDATA,R1 sADORESS TO SAVE TKE RAM DATA 
MOV : sBYTE ADDRESS OF FIRST RAM DATA 
CLR sCLEAR THE ERROR FLAG 
JSR PC ..CHKTSSR sWAIT FOR SSR 
000000 MOvVB 6, TSOBCRS > sSET MAINTENANCE MODE 
10$: JSR »CHKTSSR sWAIT FOR SSR TO SET 
MOV R2, TSOBCRS) sSELECT NEXT RAM ADORESS 
JSR PC,CHKTSSR sWAIT FOR = TO = 
MOvB TSBACRS),(R1) sREAD THE RAM DATA 
CMPB (R1)+,CR4)- sCOMPARE TO EXPECTED 
BEQ 20% sBRANCH IF OK 
INC R3 sSET ERROR FLAG 
20%: INC R2 sADORESS OF NEXT RAM LOCATION 
002272 MOV #6. ,RAMS | ASSUME EXTFEA NOT SET 
TST EXTFEA sIS THE SOFTWARE EXTENDED FEATURES SET 
BEQ $ s6R, IF NOT SET 
002272 MOV #10. ,RAMSIZ sSET RAMSIZ FOR EXTEND ne 
CMP R2, sAT END OF EXTENDED BUFFE 
BLE 108 sBR, IF NOT AT END YET 
BR 27% sAT END BRANCH 
25%: CMP R2, ORMCHEND -2 sREACHED END YET ? 
BLE 10% sBRANCH TILL ALL READ 
278: TST R3 sWAS AN E F 
BEQ 308 sBRANCH IF NOT 
cLc sCLEAR CARRY TO SHOW ERROR 
BR 50$ sAND EXIT 
30%: SEC sSHOW GOOD COMPARE 
50$: RTS PC s RETURN 


US 


TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-84 14;17 
CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 
1264 .SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 
1265 i° 
1266 3 
1267 sROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
1268 ;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
1269 sERROR PRINT ROUTINES. 
1270 3 
1271 ; INPUT: 
1272 F 
1273 : RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
1274 ; Ri RECV MESSAGE BUFFER LOW ORDER ADORESS 
1275 ; Re EXPD MESSAGE BUFFER ADDRESS 
1276 sOUTPUT: 
1277 3 
1278 3 CARRY SET - MESSAGE BUFFERS MATCH 
oe 3 CLR -MESSAGE BUFFERS DON'T MATCH 
12 3 
1281 sIMPLICIT OUTPUT: 
1282 3 
1283 3 EXPMSG BUFFER IS SET TO EXPD DATA 
1284 3 RECMSG BUFFER IS SET TO RECV DATA 
1285 3 RCVHIADO SET TO HIGH R ADORESS OF RECV 
—F 3 RCVLOADO SET TO LOW ORDER ADDRESS OF RECV 
3 
1288 3° 
1289 011450 CKMSG: : 
1290 011450 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1291 011454 010037 002274 RO, RCVHIADD sSAVE RECV HIGH ADDRESS 
011460 010137 002276 R1,RCVLOAD sSAVE RECV LOW ADORESS 
1293 011464 737 003124 TST KTENABLE sTESTING ABOVE 28K? 
1294 011470 001403 BEQ 10% 3 IF NO 
1295 011472 004737 017406 JSR PC, SETMAP sRETURN ADDRESS BIASED TO PARG IN RO 
011476 010001 MOV oR1 sGET RETURNED ADORESS BIASED TO PARE 
1297 011500 005004 108: CLR R4 3 WORD ER 
1298 011502 005003 CLR R3 sCLEAR ERROR SEEN FLAG 
011504 010205 MOV R2,R5 sGET EXPO BUFFER ADDRESS 
1300 011506 011264 002312 15%: MOV CR2) ,EXPMSGC(R4 ) i SAVE EXPD FOR ERROR REPORT 
1011512 011164 002456 MOV (R1), RECMSG(R4) sSAVE RECV FOR ERROR REPORT 
1302 011516 21 CMP (R2)+,(R1)> sEXPD EQUAL RECV? 
1303 011520 001401 BEQ $ 38R IF YES 
1304 011522 INC R3 sSET ERROR SEEN 
1305 011524 062704 000002 258: ADO @2,R4 sPOINT TO NEXT WORD ADDRESS 
1306 011530 020427 000014 CMP R4,014 oo FIRST 7 WORDS? 
1307 011534 003764 BLE 158% 
1306 011536 032765 000200 000012 BIT @xX2.EXTF, XST2(RS); IS EXTENDED FEATURES SET IN EXPD? 
1309 011544 001403 BEQ 50% s6R I 
1310 011546 7 000016 CMP R4,016 DONE EXTENDED FEATURES WORD? 
1311 011552 003755 BLE 158 
1312 011554 005703 50% TST R3 VANY ERRORS SEEN? 
1313 011556 001402 BEQ 55% 36R IF NO 
1314 011560 000241 Ls 3SET FAILURE 
1315 011562 000401 BR 60$ ’ 
1316 011564 000261 55%: SEC sSET SUCCESS 
1317 011566 000207 60%: RTS PC ;RETURN 


SEQ 0055 


MACRO M1113 


14-JUN-64 14:17 


COMPARE EXPD RECV MESSAGE BUFFERS 


TSv3 - GLOBAL AREAS 
CKMSG2 


1340 

1341 011570 
1342 011570 
1343 011574 


1355 011656 
1356 011662 
1357 011666 
1358 011670 
1359 011672 
1360 011674 
1361 011700 
1362 011702 
1363 011704 
1364 011706 
1365 011710 
1366 011712 
1367 011714 
1368 011716 
1369 011720 


000144 


011722 
000001 


. SBTTL 


ES: 


CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


3¢ 

sROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


3 RO RECV MESSAGE BUFFER HIGH ORDER satiety 
3 R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
; R2 EXPD MESSAGE BUFFER ADDRESS 
: R3 NUMBER OF BYTES TO COMPARE 
3 
sOUTPUT: 
3 CARRY SET - MESSAGE BUFFERS MATCH 
F CLR - MESSAGE BUFFERS DON’T MATCH 
3 
s IMPLICIT OUTPUT: 
F EXPMSG BUFFER IS SET TO EXPD DATA 
3 RECMNSG SUFFER IS SET TO RECV DATA 
3 RCVHIADO SET TO HIGH ORDER ADDRESS OF RECV 
3 RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
it 
CKMSGe: : 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
CMP R3, ORECMSG - EXPHSG; 880 IS COUNT ABOVE MAX ALLOWED? 
BLE 5% 3880 IF NO 
MOV @RECMSG -EXPMSG, R3; 960 
PRINTF @DEBUGMSG 3 
MOV »-CSP) 
MOV #1,-(SP) 
MOV »RO 
TRAP CSPNTF 
ADO 04 ,SP 
S$: MOV RO, RCVHIADO sSAVE RECV HIGH ADORESS 
MOV Ri, OAD sSAVE RECV LOW ADORESS 
TST KT E sTESTING ABOVE 28K? 
BEQ 10% sBR IF NO 
JSR PC, SETMAP sRETURN ADORESS BIASED TO PARG6 IN RO 
MOV RO,R1 sGET RETURNED ADORESS BIASED TO PARE 
10$: CLR R4 sWORD IN BUFFER 
CLR RS sCLEAR ERROR SEEN FLAG 
15%: CR2),EXPMSG(R4) SAVE EXPD FOR ERROR REPORT 
MOVB (R1),RECMSGCR4) ;SAVE RECV FOR ERROR REPORT 
CR2)+,CR1)+ sEXPD EQUAL RECV? 
BEQ 25% 36R IF YES 
INC RS sSET ERROR SEEN FLAG 
25%: ADD #1,R4 sPOINT TO NEXT BYTE 
CMP R4,R3 sDONE ALI. BYTES? 
BCE 50% ;8R IF YES 
BR 15$ 300 NEXT BYTE 
50%: TST RS sANY ERRORS SEEN? 
BEQ 55% 3;8R IF NO 
CLC 3SET FAILURE 
BR 60$ ; 
55%: SEC sSET SUCCESS 
60$: RTS PC ;RETURN 


SEQ 0056 


TSV3 - GLOBAL AREAS 
CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


1371 011722 


1375 012111 


1391 012124 


012152 
012152 


004737 
004737 


104423 


004737 
012700 
004737 


104423 


MACRO M1113 14-JUN-64 14:17 


006022 
017272 


006022 
000004 
007460 


DEBUGMSG: .ASCIZ ‘PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED.’ 


FERCM: .ASCII /SNSA s00/ 
ERCM: .ASCIZ 7/7 TSSR ERROR CODE REC'D = / 
SIMSG: .ASCIZ /.... AFTER DOING SOFT INIT/ 
TINERR: yy /TEST: ...7 

VEN 


Neg 


; 
s;PRINT ROUTINE TO FATAL SOFT INIT ERRORS 


H 

3; INPUT: 

: Ri CONTENTS OF TSSR AT ERROR 

:SIDE EFFECTS: 

; 

; EXECUTES DROP UNIT TO CEASE TESTING 

; 

a= 
BGNMSG SFIMSG 

SFIMSG: : 
JSR PC,PRITSSR ;PRINT CONTENTS OF TSSR REGISTER 
JSR PC; CKDROP ;DROP UNIT, IF ALLOWED 
ENOMSG 

L10003: 
TRAP ——-C4MSG 


:PRINT ROUTINE TO PRINT THE CONTENTS OF 
;TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 


INPUTS: 


; R1 TSSR CONTENTS 
R4 ADDRESS OF COMMAND PACKET 


BGNMSG PKTSSR 


PKTSSR: : 
JSR PC ,PRITSSR ag THE ogg OF TSSR REGISTER 
MOV 64 ,R0 OF WORDS IN PACKET 
JSR PC ,PRIPKT SPRINT THE CONTENTS OF COMMAND PACKET 
ENOMSG 

L10004; 


TRAP C$mMSG 


SEQ 0057 


TSv3 - GLOBAL AREAS 


CKMSG2 


1413 
1414 
1415 
1416 
1417 
1416 
1419 
1420 
1421 
1422 


1423 
1424 
1425 
1426 


012154 
012154 
012154 
012160 
012164 
012170 
012170 
012170 


012172 
012172 
012172 
012176 
012176 
012176 


012200 
012200 
012200 
012204 
012206 
012210 
012214 
012214 
012214 


004737 
012700 
004737 


104423 


004737 


104423 


004737 
010200 
010301 
004737 


104423 


MACRO M1113 14-JUN-84 14:17 
COMPARE EXPD RECV MESSAGE BUFFERS 


006022 
000002 
007460 


006022 


006022 


014332 


3° 
sPRINT ROUTINE 


TO PRINT THE CONTENTS OF 


;TSSR AND A GET STATUS COMMAND PACKET. 


TSSR CONTENTS 
ADDRESS OF COMMAND PACKET 


PKTGETS 

PC ,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
@2,RO sNO. OF WORDS IN GET STATUS PACKET 
PC ,PRIPKT ;PRINT THE CONTENTS OF COMMAND PACKET 
C$MSG 


3° 
sPRINT TSSR ERRORS FOR INITIALIZATION TESTS 


Hy 
; INPUTS: 
; 
3 Ri 
; R4 
3 - 
BGNMSG 
PKTGETS 
JSR 
MOV 
JSR 
ENOMSG 
L10005: 
TRAP 
b 
s INPUTS: 
; R1 
: Ra 
3 - 
BGNMSG 
SFFMSG: : 
JSR 
ENDOMSG 
L10006: 
TRAP 
. SBTTL 


3° 
sPRINT ROUTINE 


TSSR CONTENTS 
ADDRESS OF COMMAND PACKET 


SFFMSG 

PC ,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
CSMSG 

PKTMES - PRINT TSSR AND MESSAGE BUFFER 

TO PRINT THE CONTENTS OF TSSR AND MESSAGE 


sBUFFER FOR ERROR REPORTS 


; 
s INPUTS: 
; 
; 
; 
i 
; 
; 


BGNMNSG 
PKTMES: : 


L10007; 


CONTENTS OF TSSR 
LOW ORDER MESSAGE BUFFER 
HIGH ORDER MESSAGE BUFFER ADDRESS 


NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 


PKTMES 

PC,PRITSSR sPRINT CONTENTS OF TSSR 
R2,RO sLOW ORDER ADDRESS 

R3,R1 sHIGH ORDER ADDRESS 

PC, PRMESS sPRINT THE MESSAGE BUFFER 
C$MSG 


SEQ 0058 


TSV3 - GLOBAL AREAS 


ADOSSR 


012216 
012216 
012216 
012222 
012226 
012232 
012232 
012232 


004737 
016501 
004737 


104423 


012700 
005737 
001402 
012700 
004737 


104423 


MACRO M1113 
- PRINT TEST ADDRESS AND TSSR 


000007 
002216 


000010 
014642 


14-JUN-84 14:17 


3 
; INPUTS: 


HS 


-SBTTL ADDSSR - PRINT TEST ADDRESS AND TSSR 


3° 
sPRINT ROUTINE TO PRINT THE CONTENTS OF 
s;TSSR AND A MEMORY TEST ADDRESS 


RS 


ERRHI 
ERRLO 


TRAP 


FIRST DEVICE UNIBUS ADDRESS 
HIGH ORDER MEMORY TEST ADDRESS 
LOW ORDER MEMORY TEST ADDRESS 


ADOSSR 

PC,PRITADD sPRINT MEMORY TEST ADDRESS 
TSSRCRS),R1 sGET CURRENT TSSR 

PC ,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
C$MSG 


-SBTTL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 


; 

sPRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
; 

sIMPLICIT INPUTS: 


110011: 


EXPMSG 


- EXPECTED MESSAGE BUFFER 


RECMSG - RECEIVED MESSAGE BUFFER 
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADORESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADORESS 


@7,R0 sASSUME NO EXT FEATURES 

EXTFEA sEXT FEATURES SET? 

5% 3BR IF NO 

$8. ,RO sEXT FEATURE BUFFER IS 8 WORDS 
PC , PRMSGE XP sPRINT EXPD/RECV MESSAGE BUFFERS 


SEQ 0059 


TSV3 - GLOBAL AREAS 


FIFEXP 


1508 


1509 
1510 
1511 


1512 
1513 
1514 


010146 
012746 


MACRO M1113 
- PRINT FIFO EXP/RECV DATA 


012332 
000002 


015212 


116 
116 


4 


14-JUN-84 14:17 


-SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 


3° 


;PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 
; Ri - BYTE COUNT 
:IMPLICIT INPUTS: 


; 
EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 


; 
: RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 
; BGNMSG FIFEXP 
FIFEXP: : 
PRINTX OF IFIMSG,R1 ;PRINT BYTES TRANSFERRED 


MOV R1,-CSP) 
MOV OF IF IMSG, -(SP) 
MOV @2,-(SP) 
SP ,RO 
TRAP CSPNTX 
ADD 6, SP 
PRINTX @FIF2MSG 
MOV OF IF QMSG, -( SP) 


MOV #1,-(SP) 
MOV SP ,RO 


sPRINT HEADER MSG 


TRAP C$PNTX 
ADD 04 ,SP 
MOV R1,RO ;GET BYTE COUNT 
JSR PC ,PRBYTEXP ;PRINT FIFO BYTES IN ERROR 
ENOMSG 
L1001e2: 
TRAP C$MSG 
045 FIFIMSG: -ASCIZ ‘ssNSA NUMBER OF BYTES TRANSFERRED = #02’ 
045 FIFOQMSG: even -ASCIZ ‘sNSA FIFO DATA BYTES IN ERROR:' 


5EQ 0060 


TSV3 - GLOBAL AREAS 


MACRO M1113 


14-JUN-84 14:17 


MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
i529 012440 
012440 
1530 012440 012701 
1531 012444 012100 
1532 012446 001410 
1533 012450 
012450 010046 
012452 012746 
012456 010600 
012460 104415 
012462 062706 
1534 012466 000766 
1535 012470 012700 
1536 012474 004737 
1537 012500 
012500 
012500 104423 
1538 
1539 012502 012520 
1540 012520 “45 
1541 012562 045 
1542 012653 045 
1543 012744 045 
1544 013035 045 
1545 013077 045 
1546 
1547 


012502 


.SBTTL MSGSTAT 


. 
; . 


JS 


- PRINT STATUS HEADER AND MESSAGE BUFFERS 


:PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 


;IMPLICIT INPUTS: 
EXPMSG 


- EXPECTED MESSAGE BUFFER 


RECMSG - RECEIVED MESSAGE BUFFER 


RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


; 
; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 


BGNMSG MSGSTAT 


MSGSTAT: 
MOV @STATCOD,R1 
108: MOV C(R1)+,RO 
BEQ 20$ 
PRINTX RO 


sASCII ADDRESS TABLE 
sDONE ALL MSG LINES? 
3;68R IF YES 

sPRINT STATUS BIT NAMES 


MOV SP ,RO 
TRAP CSPNTX 
ADD 04 ,SP 
BR 10$ 300 ANOTHER MSG LINE 
20%: MOV #10. ,RO ;NUMBER OF WORDS IN A READ STATUS BUFFER 
= - PC ,PRMSGE XP ;PRINT EXPD/RECV MESSAGE BUFFERS 
L10013: 
TRAP C#MSG 
012653 STATCOD: «WORD 1%,2%,3%,4$,5$,6$%,0 
045 1$:.ASCIZ ‘SNSA Tape Bus Signals in Word #8: 
045 2%:.ASCIZ ‘sNSA PARERR<15> IEOQT <12> IFMK <9> IRDY<6> IRWD<2>' 
045 3%:.ASCIZ ‘sNSA IRESV2<14> IIDENT<11> IWER <8> ION<5S> IFBY<1>’' 
045 4$:.ASCIZ ‘sNSA IRESVi<13> ICER <10> ISPEED<7> ILOP<4> IFPT<O>' 
045 5%:.ASCIZ ‘sNSA Tape Bus Signals in Word 09:' 
045 asians ase DATMIS<7> ILW<6> OUTRDY<S> INRDY<4>' 


SEQ 0061 


ee 


TSV3_ - GLOBAL AREAS MACRO M1113 14-JUN-64 14:17 
MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


1562 013154 012701 015216 
1563 013160 012100 
1564 013162 001410 


013164 010046 
013166 012746 000001 
013172 010600 
013174 104415 
013176 062706 000004 
1566 013202 000766 
1567 013204 012700 000012 
1568 013210 004737 014642 


1571 013216 013236 013311 013410 


1572 013236 045 116 


1576 013606 045 116 
1577 013705 045 116 
1578 014004 045 116 
1579 


.SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


3* 


;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

; 

; IMPLICIT INPUTS: 

; EXPMSG - EXPECTED MESSAGE BUFFER 

; RECMSG - RECEIVED MESSAGE BUFFER 

: RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
: RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
; 


BGNMSG MSGLOOP 


MSGLOOP : 
MOV @LOOPCOD ,R1 sfSCII ADDRESS TABLE 
10$: MOV CR1)+,RO ;DONE ALL MSG LINES? 
BEQ 20% ;BR IF YES 
PRINTX RO s;PRINT STATUS BIT NAMES 
MOV RO, -( SP) 
MOV #1,-C(SP) 
MOV SP, 
TRAP CSPNTX 
ADD 04 ,SP 
BR 10% 300 ANOTHER MSG LINE 
20%: MOV #10. ,RO sNUMBER OF WORDS IN A READ STATUS BUFFER 
JSR PC , PRMSGE xP ;PRINT EXPD/RECV MESSAGE BUFFERS 
ENOMSG 
L10014 
TRAP C$MSG 
LOOPCOD : -WORD 1%,2¢,3%,4%,5%,6%,7%,0 
1$:.ASCIZ ‘SNA Tepe Bus Loopback Signals in Word %8:' 
2¢:.ASCIZ ‘sNSA PARERR<15> IRESV2<14> IRESV1<13>' 


3$:.ASCIZ ‘sNSA IHISP=>IEOT<12> IWRT=>IIDENT<11> IREV =>ICER <10>' 


4$:.ASCIZ ‘sNSA IWFM =>IFMK<09> IEDIT=>IHER <06> IFAD *>ISPEED<07>' 
5$:.ASCIZ ‘sNSA ITADO=>IRDY<06> ITAD1=>ION. <05> IERASE=>ILDP <O4>' 
6$:.ASCIZ ‘sNSA IREW =>IDBY<03> IRWU =>IRWD <O2> IFEN =>IFBY <Ol>’ 


7%:.ASCIZ ‘SNSA IGO =>IFPT<00>' 
“EVEN 


SEQ 0062 


TSV3 - GLOBAL AREAS 
MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


014032 
014032 
014032 
014036 
014042 
014042 
014042 


012700 
004737 


104423 


004737 
013701 
013702 
004737 


104423 


MACRO M1115 


000012 
014642 


010250 
002222 
002224 
010032 


14-JUN-84 14:17 


3¢ 


SEQ 0063 


.SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 


:IMPLICIT INPUTS: 


EXPMSG - EXPECTED MESSAGE BUFFER 
RECMSG - RECEIVED MESSAGE BUFFER 
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADORESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


i 
H 
: 
; 
: 


MSGSUB: : 


L10015: 


3* 


; 
sPRINT ROUTINE 


BGNMSG MSGSUB 
MOV #10. ,RO 


sSIZE OF WRITE SUBSYSTEM BUFFER 


JSR PC , PRMSGE xP sPRINT EXPD/RECV MESSAGE BUFFERS 
ENOMSG 
TRAP C$MSG 


-SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 


;IMPLICIT INPUTS: 


MEMADO : : 


L10016: 


BGNMSG MEMADD 


JSR PC ,PRIADD 
MOV EXPO ,R1 
MOV RECV ,R2 
JSR PC ,PRIXOR 


TRAP C$MSG 


TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 


- MEMORY ERROR HIGH ORDER ADDRESS 
ERRLO - MEMORY ERROR LOW ORDER ADORESS 

- EXPECTED DATA 
- RECEIVED DATA 


sPRINT MEMORY ADDRESS IN ERROR 
;GET EXPD DATA 

sGET RECEIVED DATA 

;PRINT EXPD/RECV 


TSv3_- 
PRAMPK 


GLOBAL AREAS 


012701 
005002 


122124 
001005 


0004 36 
116105 
116403 


042703 
116137 
116437 


010346 
013746 
013746 


MACRO M1115 


T - PRINT RAM AND PACKET DATA 


002232 


177777 
177777 


177400 


14-JUN-64 14:17 


177777 002224 
177777 002222 


002222 
002224 


014246 
000005 


000014 
002272 
002272 


000010 
002272 


116 


045 


.SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 
3¢ 
s;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 


WHEN THE RAM DATA DOES NOT MATCH. 
; INPUTS: 


: R4 POINTER TO COMMAND PACKET 
; IMPLICIT INPUTS: 
; RAMDATA DATA AS READ FROM THE RAM 
3 RAMSIZ NUMBER OF BYTES IN PACKET 
; IF RAMSIZ=9 THEN DEFAULT TO 8. 
; IMPLICIT OuTPUTS: 
8 RAMSIZ SET TO 0 
PRAMPKT: 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
MOV @RAMDATA,R1 »DATA FROM THE RAM 
CLR R2 ;INIT BYTE NUMBER 
5$: CMPB (R1)+,(R4)> ;COMPARE EXPECTED, RECEIVED 
SNE 7$ ;8R IF NO MATCH 
FORCERROR 7$,NOTSSR 
BR 10$ BaD 
7$: MOvB -1(€R1),R5S ;GET RECV RAM DATA 
MOvB -1(R4),R3 ;GET EXPD PACKET DATA 
bie) R5,R3 ;XOR EXPD/RECV 


mMOvB -1(R1),RECV 

MOVE -1(R4) , EXPO 

PRINTB @RAMASC ,R2,RECV,EXPD,RS 
MOV P3,-(SP) 


MOV @RAMASC , -( SP) 
MOV #5, -(SP) 
MOV SP, 


10$: INC 2 
TST RAMSIZ 
BEQ 15% 
CMP R2,RAMSIZ 
BLE 5% 
BR 25% 

158 CMP R2, 06 

20% BLT 5s 

25% CLR RAMSIZ 
RTS PC 


RAMASC: .ASCIZ ‘SNBA BYTE: SD28A RAM: 
EVEN 


;LOW BYTE ONLY 
;GET RECEIVED RAM DATA 
;GET EXPECTED RAM DATA 


;UPDATE BYTE COUNT 
;DEFAU.T TO 6.? 
;BR IF YES 

sDONE ALL BYTES? 
:;8R IF NO 


;DONE DEFAULT NUMBER OF BYTES? 
:8R IF NO 

;SET DEFAULT RAMSIZ 

; RETURN 


SO38A Packet: SO38A KOR: 503° 


SEQ 0064 


TSv3 


- GOBAL AREAS MACRO 1115 


14-JUN-84 14:17 


- PRINT CONTENTS OF MESSAGE BUFFER 


- SBTTL 


; INPUT: 
5 RO 
; Ri 


PRMESS : SAVREG 
MOV 


010005 
005737 003124 TS? 
001001 SNe 
1 cLa 
010103 108: Ov 
006100 ROL 
006101 ROL 
PRINTX 
010546 OV 
010146 Ov 
012746 014510 MOV 
012746 000003 Ov 
010600 MOV 
104415 TRAP 
062706 000010 
PRINTX 
012746 014555 MOV 
012746 000001 MOV 
010600 MCV 
104415 TRAP 
062706 000004 ADO 
005004 CLR 
010501 MOV 
010300 MOV 
001403 BEQ 
004737 017406 JSR 
010005 MOV 
208 PRINTX 
012546 MOV 
010446 MOV 
012746 014613 MOV 
012746 000003 40V 
010600 MOV 
104415 TRAP 
062706 000010 A00 
020427 000007 CMP 
003005 BGT 
002761 BLT 
032763 000200 000012 BIT 
001355 BNE 
000207 50$: RTS 
045 116 045 PROASC: .ASCIZ 
045 116 045 PRIASC: .ASCIZ 
045 116 045 PRASC: .ASCIZ 


PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


;TMIS ROUTINE PRINTS THE CONTENTS OF 
;THE 7 OR 6 WORD MESSAGE BUFFER RETURNED BY THE TSv-0S. 


LOW ORDER ADDRESS OF MESSAGE BUFFER 

HIGH ORDER ADDRESS OF MESSAGE BUFFER 
NOTE: Rl IS IGNORED IF KTENABLE FLAG IS CLEAR 

; THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


20 
PC, SETMAP 


@PRASC .R4,(RS)> 
CRS)+,-CSP) 

R4, -(SP) 
@PRASC, -( SP) 
@3,-(SP) 

SP ,RO 

CSPNTX 

#10,SP 

R4 


R4,07 
50% 


sSAVE THE REGISTERS 


;SET HIGH ORDER ADORESS TO 0 
;SAVE HIGH ORDER ADORESS 

:SHIFT BIT1S TO C BIT 

;SHIFT TO HIGH ORDER FOR PRINTOUT 
SPRINT MESSAGE BUFFER ADDRESS 


;PRINT HEADER FOR CONTENTS 


sNUMBER OF THE NEXT WORD 

sCOPY LOW ORDER ADORESS 

COPY HIGH ORDER ADDRESS 

BR IF NOT ABOVE 28K 

sSETUP PAR ADORESS IN RO 

:GET PAR FORMAT ADORESS ABOVE 28K 
sPRINT THE CONTENTS OF MEMORY BUFFER 


sNUMBER OF THE NEXT 
sDONE ALL YET ? 

sBRANCH IF ALL DONE 
;PRINT FIRST 7 WORDS 


20% 
oon’ -EXTF, X$T2(R3) ;EXTENDED FEATUTES ON ? 


eet EXTENDED STATUS WORD 
TURN 


c 

'SNEA Message Buffer Address = #01#05' 
‘SNA Message Buffer Contents: ' 

'ssNSA WordsD1sA; #0‘ 


SEQ 0065 


TSV3_ - GLOBAL 
PRME 


0 
1722 014712 


0 
1723 014732 
1724 014734 
1725 014740 
1726 014744 
1727 014746 
1726 014750 
1729 014760 

014760 


1730 015010 
1731 015012 
1732 015014 
1733 015016 
1734 015020 
1735 015022 
1736 015067 
1737 015125 


Bé, 


AREAS MACRO M1113 14-JUN-64 14:17 
SS - PRINT CONTENTS OF MESSAGE BUFFER 


015125 
000005 
000014 

116 


116 
116 


045 
045 


-EVEN 
-SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 


z¢ 
sROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 
RO NUMBER OF WORD R 


; S IN BUFFE 
sIMPLICIT INPUTS: 
EXPHSG - EXPECTED MESSAGE BUFFER 


; 
3 - RECEIVED MESSAGE BUFFER 
3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
3 - 
PRMSGEXP: ; 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV RO, sSAVE NUMBER OF WORDS 
MOV RCVLOADO , RO sGET RECV LOW ADORESS 
MOV RO,R4 sCOPY LOw 
MOV RCVHIADD .R1 sGET RECV HIGH ADDRESS 
ROL RO sSHIFT BIT15 TO C BIT 
ROL R1 sSHIFT TO HIGH ORDER FOR PRINTOUT 
PRINTX @PRMSGO,R1,R4 }PRINT MESSAGE BUFFER ADDRESS 
MOV R4,-( SP) 
MOV R1,-(SP) 
MOV »-CSP) 
MOV @3,-(SP) 
MOV SP , = 
TRAP CSPNTX 
ADO #10,SP 
PRINTX @PRMSG1 sPRINT HEADER FOR CONTENTS 
MOV @PRMSG1,. -( SP) 
MOV @1,-(SP 
MOV RO 
TRAP CSPNTX 
ADO 64, 
CLR R4 sNUMBER OF THE CURRENT wWORC 
MOV @EXPMSG .R1 3sGET EXPD BUFFER ADORESS 
MOV @RECMSG .R2 sGET RECV BUFFER ADDRESS 
20% MOV CR1),RO 3GET EXPO 
MOV CR2),R3 3sGET RECV 
XOR RO,R3S sXOR EXPD/RECV 
PRINTX @PRIMSG2,R4,(R1)-, *(R2), R3 
R3,- (SP) 
CR2)+,-CSP) 
MOV (R1)+,-CSP) 
MOV R4,- 
MOV »-(SP) 
MOV 4, -¢ 
MOV SP, 
TRAP CSPNTX 
ADO 014,SP 
INC Ra sNUMBER OF THE NEXT 
CMP R4,R5 sDONE ALL YET? 
BGE $ 38R IF YES 
BR 208 10G ANOTHER 
50%: RTS PC sRETURN 


PRMSGO: .ASCIZ ‘sSNSA Message Buffer Address = 801805 ' 
PRMSG1: .ASCIZ ‘sNSA wy Buffer Contents: 
PRMSG2 8's A @sD28A EXPO: S06mA RECV: #068A xXOR: #06’ 


> 
2 
N 


SEQ 0066 


- 
| ¢ 


— 


TSv3 - SEQ 0067 
PRMSGE x 


een NTE A oD sRECY MESOACE BUTERS tt” 


1739 


002310 
002312 
002456 
177400 
015560 


177400 
015562 


002310 
002310 


015562 
015560 


015426 
000005 


000014 


002310 
015513 
012746 000002 


000010 


EVEN 
-SBTTL PRBYTEXP - 


> 


IMPLICIT INPUTS: 


oe es @F Ge Ge GF Ge of oe Ge oF oe 
' 


PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 
ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFE 

ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED OUE TO SCREEN SPACE 
RO - NUMBER OF BYTES IN BUFFER 


- EXPECTED MESSAGE BUFFER 


sSAVE R1-RS UNTIL NEXT RETURN 
sSAVE NUMBER OF BYTES 

sINIT ERROR wales 
sNUMBER OF THE CURRENT BYTE 
IGET EXPO BUFFER ADDRESS 
sGET RECV BUFFER ADDRESS 


38R IF YES 
sUPDATE ERROR COUNT 
sPRINTED 8? 
3BR IF YES 


30s 
ere 5 ,PRBEXP, PRBREC ,R3 


3:88) 
sNUMBER OF THE NEXT 


ANOTHER 
sPRINT TOTAL ERROR COUNT 


EXPMSG 
RECMSG - RECEIVED MESSAGE BUFFER 
PRBYTEXP: : 
SAVREG 
MOV RO,RS 
CLR PRMNO 
CLR R4 
MOV @EXPMSG .R1 
MOV @RECMSG, 
203: MOvVB CR1),RO 
BIC @tC<377>, RO 
MOVB . xP 
MOVB CR2),R3 
BIC @*C<377>,R3 
MOVB R3, Cc 
XOR RO,R3S 
CMPB CR1)+,(R2)> 
BEQ 30% 
INC PRMNO 
CMP PRMNO, #6. 
278: PRINTX 
MOV R3,-C 
MOV C.-CSP) 
MOV PRBEXP , -( SP) 
MOV R4,-(SP) 
MOV »- (SP) 
MOV #5, -(SP 
MOV RO 
TRAP CSPNTX 
ADD @14,SP 
FORCEXI 50% 
BR 35% 
308: 
FORCERROR 27$,NOTSSR 
35%: 
INC RA 
CMP R4,RS 
BGE 508 
BR 20% 
50%: PRINTX @PRBTOT,PRMNO 
MOV PRMNO, -( SP) 
MOV @PRBTOT, -( SP) 
MOV @2,-(SP) 


MOV SP ,RO 


TSV3 - GLOBAL AREAS 


PRBYTEXP 


015416 
015420 
1783 015424 


1785 015426 
1786 615513 


1788 015560 
1789 015562 


1802 015564 
015564 
1803 015564 
1804 015570 
015570 
015570 


1618 015572 
015572 
1819 015572 
1820 015576 
015576 
015576 


004737 


104423 


004737 


104423 


MACRO M1115 


010032 


007702 


14-JUN-84 14:17 


- PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


TRAP 


3 2 

; 

;PRINT ROUTINE 
INPUTS: 


Ri 
Re 


AP 
- SBTTL 
3¢ 


; 
sPRINT ROUTINE 
; 


Hl 
; INPUTS: 


3 Ri 
R2 


L10020: 
TRAP 


. SBTTL 
3? 


$ 

sPRINT ROUTINE 
a 

; INPUTS: 


6 
F R4 


CSPNTx 

06, SP 

PC sRE TURN 

‘sNSA 6OBYTE O@8D28A EXPD: S038A RECV: SO38A 


‘SNA NUMBER OF BYTES IN ERROR = #02’ 
0 3EXPD 

0 sRECV 

EXPREC - PRINT EXPD/RECV WORD DATA 


TO DISPLAY EXPD/RECV DATA 


RECEIVED DATA 
EXPECTED DATA 


EXPREC 


PC ,PRIXOR sPRINT THE DATA 


C$MSG 
EXPBREC - PRINT EXPD/RECV BYTE DATA 


TO DISPLAY BYTE EXPD/RECV DATA 


RECEIVED DATA BYTE 
EXPECTED DATA BYTE 


EXPBREC 

PC ,PRIBXOR sPRINT THE DATA 
C$MSG 

RAMERR - PRINT RAM AND PACKET DATA 


TO DISPLAY RAM/PACKET DATA 


POINTER TO COMMAND PACKET 


XOR: 803° 


SEQ 0068 


TSV3 - GLOBAL AREAS 


RAMERR 





MACRO M1113 
- PRINT RAM AND PACKET DATA 


015600 004737 014066 


015604 104423 


015606 004737 010364 
015612 004737 014066 


6 
015616 104423 


14-JUN-64 14:17 


Eb 


s IMPLICIT INPUTS: 
; 


RAMDATA 
RAMSIZ 


IMPLICIT OuTPYU 
RAMSIZ 


BGNMSG 
RAMERR: : 

JSR 

ENOMSG 


TRAP 
-SBTTL 


SPRINT ROUTINE 
PINPUTS: 

Ra 
SIMPLICIT INPUT 


PAMDATA 
RAMSIZ 


ERRHI 
ERRLO 


RAMSIZ 


TRAP 


3° 


; 
sPRINT ROUTINE 


3 

; INPUTS: 

2 

$ R1 
: R2 


DATA AS READ FROM THE RAM 

NUMBER OF BYTES IN PACKET 

IF RAMSIZ*0 THEN DEFAULT TO 8. 
TS: 


SET T0 0 


RAMERR 


PC ,PRAMPKT ;PRINT RAM/PACKET DATA 


C$MSG 
RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 


TO DISPLAY RAM/PACKET DATA 


POINTER TO COMMAND PACKET 
S: 


DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 

IF RAMSIZ*0 THEN DEFAULT TO 8. 
HIGH ORDER TEST ADORESS 

LOW ORDER TEST ADORESS 


IMPLICIT OUTPUTS: 


SET T0 0 

RAMTADO 

PC ,PRITADD sPRINT TEST ADDRESS 
PC ,PRAMPKT ;PRINT RAM/PACKET DATA 
C$MSG 

RAMEXP - PRINT RAM EXPD/RECV DATA 


TO DISPLAY EXPD/RECV DATA 


RECEIVED DATA 
EXPECTED DATA 


SEQ 0069 


F6 


TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-84 14:17 SEQ 0070 
RAMEXP - PRINT RAM EX®D/RECV DATA 
1883 : R4 CONTROLLER RAM ADDRESS 
1884 Es 
1865 
1886 015620 BGNMSG RAMEXP 
015620 RAMEXP: ; 
1887 015620 042701 177400 BIC @t0<377>,R1 sSAVE EXPD RAM DATA BrTE 
1888 015624 042702 177400 BIC @t0<377>,R2 s;SAVE EXPD RAM DATA BYTE 
1889 015630 004737 010156 JSR PC ,PRIRAM sPRINT THE RAM ADORESS 
1890 015634 004737 010032 JSR PC,PRIXOR sPRINT THE DATA 
1891 015640 ENDMSG 
015640 L10023: 
015640 104423 TRAP C$mMSG 
1892 
1893 .S@TTL TIMEXP - PRINT TIMER A,B AND EXP/REC 
1894 $¢ | 
1895 3 | 
1896 sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
1897 ;AND TIMER A,B HEADER MESSAGE 
1898 3 
1899 ; INPUTS: 
1900 3 | 
1901 ; R1 RECEIVED DATA 
1902 : R2 EXPECTED DATA | 
1903 s- 
1904 
1905 015642 BGNMSG TIMEXP { 
015642 TIMEXP: : 
1906 015642 PRINTX @TIMSGO ;PRINT HEADER | 
015642 012746 015670 MOV #TIMSGO, -(SP) 
015646 012746 000001 MOV #1,-(SP) 
015652 010600 MOV SP ,RO 
015654 104415 TRAP CSPNTX 
015656 062706 000004 ADN 64,SP 
1907 015662 004737 010032 JSR PC ,PRIXOR ;PRINT THE DATA 
1906 015666 ENOMSG 
015666 L10024: 
rene 015666 104423 TRAP C$MSG 
er 015670 045 116 045 — .ASCIZ ‘sNSA TIMER A STATUS IS IN BIT 3e8NSA TIMER B STATUS IS IN BIT 2' 
ae .SB8TTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 
1914 +s | 
1915 3 
fot sPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS | 
F 
1918 ; INPUTS: 
1919 ; | 
1920 ; R1 CONTENTS OF TSSR 
1921 3 R2 DATA WRITTEN (8 BITS) 
1922 F | 
1923 3° 
1924 
1925 015770 BGNMSG BADSSR 
015770 BANSSR: : 
1926 015770 010246 MOV R2,-(SP) ;SAVE DATA TRANSFERRED 


1927 015772 042702 177400 BIC 0177400 ,R2 s;GET JUST ONE BYTE 





TSV3 - GLOBAL AREAS 


1928 015776 
015776 


016026 
1932 016030 


MACRO M1113 14-JUN-84 14:17 
BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 


016030 
000002 


116 


L10025: 
045 XFERASC: 


3 66 


@XFERASC ,R2 
R2, -(SP) 
OXFERASC, -( SP) 
2, -( SP) 


(SP )+,R2 
PC ,PRITSSR 


sRESTORE R2 
sDECODE 7SSR CONTENTS 


C$MSG 
-ASCIZ ‘sSNSA Date Transferred = #03’ 


H6 


TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-84 14;17 SEQ 0072 
GLOBAL SUBROUTINES SECTION 

1934 .SBTTL GLOBAL SUBROUTINES SECTION 

ie 

1 Hid 

1937 ; THE GLOBAL SUBROUTINES SECTION — THE SUBROUTINES 

1938 ; THAT ARE USED IN MORE THAN ONE TEST 

1939 $= 

1940 -SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 

1941 

1942 3° 

1943 ; 

1944 sROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 

1945 ;BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 

1946 3; THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 

1947 ;DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 

1948 3 

1949 ; INPUTS: 

1950 3 

se ; RS ADDRESS OF FIRST REGISTER 

1 Hy 

1953 sOUTPUTS: 

1954 3 

1955 3 RO CONTENTS OF TSSR, IF ERROR 

1956 3 CARRY SET IF INIT WAS OKAY 

3644 3 CLEAR IF FATAL ERROR 

1 3 

1959 ;CALLING SEQUENCE: 

1960 F 

1961 3 MOV @ADDRESS ,RS 

1962 3 JSR PC ,SOFINIT 

1963 3 BCS CONTINUE 

1964 3 ERROF sREPORT FATAL ERROR 

1965 3 

1966 ee 

1967 

1968 016064 SOFINIT:: 

1969 016064 SAVREG 3 SAVE THE REGISTERS 

1970 016070 012765 000000 000002 MOV #0, TSSRCRS) : 00 THE INIT 

1971 016076 004737 016340 JSR PC ,WAITF 3; WAIT FOR SSR 

1972 016102 016500 000002 MOV TSSRCRS),RO ;GET THE TSSR REGISTER 

1973 0161C06 010004 MOV RO,R4 sTSSR CONTENTS 

1974 016110 042704 176277 BIC OtC<HIADOR!OFL>, R4 

1975 016114 052704 002200 BIS @SSR!NBA,R4S 3R4 HAS EXPECTED CONTENTS 

1976 016120 020400 CMP R4,RO sONLY EXPECTED BITS SET ? 

1977 016122 001402 BEQ 5% sBRANCH IF OKAY 

1978 016124 000241 cLCc ;CLEAR THE CARRY FOR ERROR 

1979 016126 000401 BR 10% 3G@ TO EXIT 

1980 016130 000261 5$: SEC ;SET THE CARRY BIT 


1981 016132 000207 10$: RTS PC sRETURN TO CALLER 


TSV3 - GLOBAL AREAS 
CHKAMB - CHECK TSSR FOR AMBIGUITY 


2003 016134 
2004 016134 
2005 016140 
2006 016142 
2007 016146 
2008 016150 
2009 016154 
2010 016156 


MACRO M1113 


100000 
174077 


000200 
000040 
177761 
000016 
000040 
000006 


14-JUN-864 14:17 


;¢ 


CHK AMB 


l6 


- CHECK TSSR FOR 


AMBIGUITY 


; THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
sFOR AMBIGUITY 


; INPUT : 


OUTPUT: 


ee Ge @f Ge ee oe oe 


3 
3 


5$: 


10$: 


40$: 


45%: 
50$: 


RO 


RO 
CARRY 


CONTENTS OF TSSR 


CONTENTS OF TSSR 


SET - NO AMBIGUITY 
CLR - AMBIGUOUS CONTENTS 


RO,R4 
esc, RO 


S$ 
@CeNBALOFL !SSRtHIADDR> RO 
sMUST 


ass 
-— RO 


éBI's. RO 
ercTERCLS, R4 
R4,016 

408 

45% 

@BITS,RO 

45$ 
#8IT2!B1T1,RO 
45$ 

S0¢ 

PC 


sSAVE THE GENERAL REGISTERS 
sCONTENTS OF TSSR 

sIS BIT 15 SET ? 

sBRANCH IF YES 


BE AN ERROR 
RETURN WITH SUCCESS 
31S READY BIT SET ? 
sBRANCH IF READY BIT IS SET. 
31S FATAL ERROR BIT SET ? 
sERROR IF NOT 
;CLEAR ALL BUT TERMINATION CODE 
;ALL THREE BITS MUST BE SET 
sERROR IF NOT SET 
30K IF ALL ARE SET 
3IS FATAL ERROR BIT SET ? 
sERROR IF BIT IS SET WITH SSR 
3IS THIS A FUNCTION REJECT 
36R, IF TSSR IS OK 
sAMBIGUOUS CONTENTS 


sSHOW SUCCESS - NO AMBIGUITY 
sRETURN TO CALLER 


sANY OTHER BITS SET ? 


SEQ 0073 


TSV3 - GLOBAL AREAS 
ENAINT ,DSBINT 


016234 
016235 


016236 
016240 


000200 
000001 


152737 


J6 


MACRO M1113  14-JUN-84 14:17 SEQ 0074 
ENABLE /DISABLE INTERRUPTS 


000340 


000001 
016235 
000001 


000001 


000002 


000002 


002214 
016234 
016235 


-SBTTL ENAINT,DOSBINT - ENABLE/DISABLE INTERRUPTS 


; DEFAULT DISPLAY INTERRUPT HANDLERS. 

; IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
; OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 

H 


; BIT DEFINITIONS FOR “INTMASK” AND “INTFLAG” BYTES: 


IOKCKIN=BIT7 ; DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL. 
IOKSTP=BITO ; EXPECT “STOP” INTERRUPT. 


LINTERRUPT MASK ~ . a INTERRUPTS 
s INTERRUPT FLAG -- SAYS - GOT ONE (IF POSITIVE) 
INTFLAG: .BYTE 


sSAVED INTERRUPT VECTOR: 
INTVEC: .WORD 0 

sSAVE CPU PC 

INTCPC: .WORD 0 


;SUBROUTINE TO ENABLE INTERRUPTS: 
ENAINT: MOV RO, -(SP) sSAVE RO 
MOV IVEC RO sGET POINTER TO VECTORS 


MOV @INTR,CRO)+ ;SET UP INTERRUPT VECTOR 
MOV @PRIO7,(RO)> 
MOV (SP)+,RO sRESTORE RO 


MOV (SP), -CSP) 


MOV @0,2(SP) ;SET CPU TO LEVEL 0 
RTI 
;SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
DSBINT: MOV (SP), -(SP) 
Mov @PRIO7, 2( SP) 
.SBTTL INTR  - INTERRUPT HANDLERS 
a BGNSRV INTR ;DEFINE INTERRUPT ENTRY 
“mov #1, INTRECY ;SET FLAG TO SHOW INTERRUPT RECEIVED 
CLRB INTFLAG ;CLEAR FLAG TO SAY WE GOT INTERRUPT 
BITB  @IOKSTP,INTMASK ;EXPECTING STOP INTERRUPT? 
BNE 1$ ;8R IF YES 
BISB  @IOKSTP,INTFLAG ;NO. SET THE ERROR FLAG. 
iSAVE REGISTERS, MSG BUFFER, ETC. 
; ENOSRY 
L1002€ : 
RTI 


TSV3_ - GLOBAL AREAS 
- WAIT FOR SUBSYSTEM READY 


WAITF 


016356 100420 


MACRO M1113 


011000 


002116 
177772 
177756 


14-JUN-84 14:17 


. SBT TL 


; INPUTS: 
: 
3 RS 


; OUTPUTS: 

; RO 

3 CARRY 

H 

WAITF:: BR 
BREAK 


1$: MOV 
2s: MOV 


3$: SEC 
4$: DEC 


K6 


WAITF - WAIT FOR SUBSYSTEM READY 
; SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 


ADDRESS OF FIRST DEVICE REGISTER 


CONTENTS OF LAST TSSR READ 
SET - READY BIT SET 
CLR - TIMEOUT WAITING FOR READY 


1$ 
CSBRK 
#11000, -( SP) 
TSSR(RS),RO 
RO 

3$ 

1 

#1.(PC)» 
LsDLY.(PC)» 
-6(PC) 

.-4 

-22(PC) 

.-20 

(SP) 

2$ 

4s 


(SP )« 
PC 


sNOP WHEN SUPER FIXED 
; DO A SUPVSR BREAK FIRST. 


;25-APRIL-83 REV B - 1100 MSEC TIMER 
sREAD THE TSSR REGISTER 
TEST FOR READY BIT SET 


; EXIT ON STOP FLAG. 
; WAIT 100 USEC 


sREDUCE DELAY COUNT 

sRETRY UNTIL TIMER EXPIRES 

; C = 0, CONTROLLER STILL RUNNING... 
s...OR HUNG-UP AFTER 300 MSEC. 

; C = 1, CONTROLLER IS STOPPED. 

sRESTORE STACK WITHOUT CHANGING CARRY BIT 


SEQ 0075 


EG: 


TSV3 - GLOBAL. AREAS MACRO M1113 14-JUN-84 14:17 SEQ 0076 
CHKTSSR - CHECK TSSR FOR READY 
2107 .SBTTL CHKTSSR - CHECK TSSR FOR READY 
2108 :¢ 
2109 ;THIS ROUTINE WAITS FOR READY IN THE TSSR 
2110 :AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 
211i 3 
2112 ; INPUT: 
2113 ; RS ADDRESS OF CSR REGISTERS 
2114 3 
2115 ; OUTPUT: 
2116 3 RO CONTENTS OF TSSR 
2117 : CARRY SET - OKAY 
2118 $ CLR - NOT READY AMBIGUOUS, OR SC SET 
2119 3° 
2120 016426 CHKTSSR: 
2121 016426 004737 016340 JSR PC ,WAITF ;WAIT FOR READY 
2122 016432 103014 BCC 20% sBRANCH IF TIME OUT 
2123 016434 004757 016134 JSR PC , CHKAMB sTSSR AMBIGOUS? 
2124 016440 103006 BCC 10$ 3;6R IF YES 
2125 016442 032700 100000 BIT @SC ,RO sSPECIAL CONDITION SET? 
2126 016446 001405 BEQ 15$ ;8R IF NO 
2127 016450 032700 074000 BIT @<SCE !BIE! RMR! NXM>,RO S ANY ERROR BITS SET? 
2128 016454 001402 BEQ 15% 3 
2129 016456 000241 108: cLCc ;SET FAILURE 
2130 016460 000401 BR 20% ; 
2131 016462 000261 15%: SEC eae SUCCES 
2132 016464 000207 20%: RTS PC sRETURN 0 CALLER 
a7 .SBTTL XNXM - CHECK FOR NONEXISTENT MEMORY 
1 3 
2135 : * ROUTINE TO TEST FOR A NEXM IN THE RANGE ig THRU (RO). 
2136 ; ON RETURN, IF "C” = i: CR1L) = NEXM ADDRESS 
2137 3 "C” = 0, ALL ADDRESSES OK. 
2138 3 
2139 sCALL: MOV ADR1,R1 
2140 3 MOV ADR2,R2 
2141 F JSR PC,NXM 
2142 3 RETURN ;TEST “C” AND PROCEED. 
2143 016466 012737 016520 000004 XNXM: MOV 62% ,864 ; SET BUSERR VECTOR. 
2144 016474 012737 000200 000006 MOV @PRIO04 , 806 
2145 016502 005003 CLR R3 sFLAG. 
2146 916504 005711 1%: TST (R1) sTEST THE ADDRESS(ES). 
2147 ;IF ANY TRAP, CONTINUE AT 2$ 
2148 016506 020102 R1,R2 sOTHERWISE, CONTI 
2149 016510 001407 BEQ 3$ ;6R IF FINISHED — NE XM’ S$). 
2150 016512 062701 000002 ADD #2,R1 “0k NEXT 
2151 016516 000772 BR i$ .AND CONTINUE. 
2152 016520 005103 2s: COM R3 iGOT ONE, SET FLAG. 
2153 016522 012716 016530 MOV 63% ,(SP) 
2154 016526 000002 RTI ;...AND DISMISS INTERRPT... 
2155 016530 3%: CLRVEC 04 ;...ANO GIVE BACK THE VECTOR. 
016530 012700 000004 MOV 04 ,RO 
016534 104436 TRAP CsCVvEC 
2156 016536 005703 TST R&S ;O0ID0 WE CATCH ONE ?? 
2157 016540 001401 BEQ 04 sNO, “C” = O, SKIP NEXT. 
2158 016542 000261 SEC ;YES. "C“ = 1, (R1) = NEXM ADDR. 


2159 016544 000207 RTS PC 


TSV3 - GLOBAL AREAS 


TSTLOOP 


016546 

016546 005737 
016552 001006 
016554 005737 
016560 100403 
016562 005557 
016566 001002 
016570 000241 
016572 000401 
016574 000261 
016576 00020" 


MACRO 1115 
- CHECK ITERATION COUNT 


003144 
017046 
005770 
016234 
002172 


003104 


M6 


14-JUN-84 14:17 


-SBTTL TSTLOOP - CHECK ITERATION COUNT 
; SUBROUTINE TO EXECUTE TEST ITERATIONS. 
; EXIT WITH "C” SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
; LOOP COUNTER IS SET BY “BEGIN. TEST” MACRO. 


; CALL: LOOPTO ARG 


T 


STLOOP: : 
TST MOITS ; ITERATIONS INHIBITED? 
BNE 1$ s YES. 
TsT ave ; NO. 
BMI 1s ;LOOPS DISALLOWED IN QUICK PASS. 
a "yeh ; BUMP LOOP COUNTER. 
1$: ns - ;LOOP DISALLOWED, OR DONE. 
2s: SEC ;LOOP ENABLED. 
3$: RTS PC 


-SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 


; PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
; INCREMENT “TESTK” TO INDICATE THE NUMBER OF TESTS 

; IN THE CURRENT RUN SEQUENCE. 

; CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 


; INPUT: 

; RO POINTER TO TEST ID ASCIZ STRING 

;OUTPUT : 

RS ADORESS OF FIRST DEVICE REGISTER 

SIMPLICIT OUTPUTS: 

; TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 


:SIDE EFFECTS: 


; INTERRUPT LEVEL IS RASIED TO LEVEL OF 
; THE DEVICE UNDER TEST 


TSTSETUP:: 
MOV ;SAVE THE TEST ID MESSAGE 
; CLEAR “SOFT INIT” FLAG 
; CLEAR LOCAL ERROR COUNTER. 
; CLEAR ERROR EXTENSION FLAG. 
. ; CLEAR INTERRUPT MASK (CHECK ERROR) 
MOV UNITN,RO ; GET THE UNIT NUMBER, 
; ... AND MAKE IT A WORD OFFSET. 
; DID STARTUP FIND THE DEVICE? 
; BR IF YES 
; BR IF NOT IDLE 


SEQ 0077 


TSVS - GOBAL AREAS 
TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 


160000 003166 


2218 
2219 


2220 
2221 
2222 


2225 
2224 


2225 


2226 
2227 
2226 


2229 
2250 
2231 
2232 


016640 


016712 
016714 


016716 
016716 
016720 
016724 
016726 
016730 
016730 
016732 
016736 
016742 
016744 
016746 
016752 
016756 
016756 
016762 
016764 
016766 
016772 
016774 


017010 
017010 


052760 


MACRO M1115 


14-JUN-84 14:17 SEQ 0078 


BIS #160000 ,ERTABL(RO) ; “LAG ERROR IN THE ERROR TABLE 
ERRDF 1,NXR,NXRERR ; NO DEVICE HERE -- PRINT IT 
TRAP CSEROF 

i 


. BORD 
-WORD NXR 
.WORD NXRERR 
BR 2s 
160001 003166 55: BIS #160071 , ERTABL (RO) ; FLAG ERROR IN THE ERROR TABLE 


ERROF  2,NOINIT 
TRAP CSEROF 


; DEVICE NOT IDLE 


-WORD 2 
-WORD NOINIT 
-WORD O 
177777 0C3102 2%: MOV @-1,0UFLG ; OROP THE UNIT 
000uU UNITN 
002172 MOV UNITN,RO 
TRAP Cs000u 
DOCLN ; ABORT THE PASS 
TRAP CS8OCLN 
BR 5s 
at: RFLAGS RO ; GET THE OPERATOR FLAGS. 
TRAP CSRFLA 
001000 BIT OPNT ,RO ; PRINT THE TEST NUMBERS? 
BEG 1s ; BR IF NO 
MOV (SP),RO ;GET THE ID MESSAGE 
PRINTF @TNAM,RO sOISPLAY THE TEST ID 
MOV RO, -(SP 
016774 MOV @TNAM, -( SP) 
000002 MOV 02, -(SP) 
MOV SP, 
IRAP CSPNTF 
000006 ADO 6, SP 
002204 1s: INC TSTCNT ; BUMP TEST COUNTER. 
SETPRI IPRI s;PRIORITY THAT OF DEVICE 
002202 MOV IPRI ,RO 
TRAP CsSPRI 
S$: TST (SP )- ;FIX UP THE STACK 
002176 24  maaaaes ; ADDRESS OF TSV REGISTERS ON UNIBUS 
123 045 TNAM: — ‘SSSTSA Test’ 
-SBTTL TSTEND - PRINT ERRORS RECEIVED 
; 
; AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
; IF NORMAL ERROR REPORTING IS DISABLED (FLA: IER). 
TSTEND: RFLAGS RO 
TRAP CSRFLA 
020000 BIT RO, @IER 
BEQ 1s ; BR IF “IER” NOT SET. 
PRINTF @€SUM,ERRK ; PRINT ERROR COUNT. 
017046 MOV ERRK , -( SP) 
017050 MOV @ESUM, -( SP) 
000002 MOV @2,-(SP) 


MOV SP ,RO 
TRAP CSPNTF 
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TSTEND - PRINT ERRORS RECEIVED 
017040 062706 000006 ADD 06, SP 
2249 017044 000207 is: RTS PC 
2251 017046 000000 ERRK: 0 + LOCAL ERROR COUNT. 
2252 017050 045 101 040 ESUM: .ASCIZ /#A SOSA ERRORS/ 
2258 017967 105 122 122 EMAXDU: -ASCIZ ZERROR LIMIT REACHED -- DROPPING UNIT/ 


ee 
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INCE 


RK 


017170 


1 
017172 


017174 


6e 
017270 


012737 
104455 
000004 


017067 
000000 


013700 
104451 


104444 
012600 
000207 


MACRO M1113 14-JUN-64 14:17 
- INCREMENT LOCAL ERROR COUNT 


017946 
002172 
003166 
007777 


177777 003102 


002172 


- INCREMENT LOCAL ERROR COUNT 


; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 


.SBTTL INCERK 

:- 

INCERK: INC 
MOV RO, -( SP) 
MOV UNITN,RO 
ASL RO 
ADO @ERTABL ,RO 
INC ) 
BIT @7777,(RO) 
BNE 18 
DEC (RO) 

18: MOV (SP )+,RO 


PC 
CKEMAX: MOV RO, -( SP) 


BIC #170000 ,RO 
RO, GERRMAX 

BHIS § 

CMP ERRK , LERRMAX 

BLO 

18: RFLAGS 

TRAP C8RFLA 

BIT ~ ee 
@- 1 ° OUFLG 
4,EMAXDU 

TRAP CSEROF 

-WORD 4 

-WORD EMAXDU 

-WORD O 

000U UNITN 
UNITN,RO 

TRAP 

N 


2s: MOV (SP)+,RO 
PC 


INCREMENT LOCAL ERROR COUNT 
SAVE RO 


GET UNIT NUMBER, 
AND MAKE IT A WORD OFFSE 
RO GETS ADORESS OF ERROR TABLE ENTRY. 
INCREMENT THE DEVICE ERROR COUNT 
DID WE OVERFLOW THE FIELD? 
BR IF NO. 
YES -- BACK IT W TO 7777. 


RESTORE 
RETURN TO CALLER. 


SAVE RO 

GET UNIT NUMBER 

... AND MAKE IT A WORD OFFSET 
GET ERROR TABLE ENTRY 


IELO 
pS — LIMIT EXCEEDED FOR THIS UNIT? 
IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
BR IF NO 
GET OPERATOR FLAGS 
IS DROPPING INHIBITED? 


BR IF YES. 
NO -- DROP THE UNIT 


RESTORE RO 
RETURN TO CALLER 


SEQ 0080 
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CRDROP - CHECK IF UNIT SHOULD BE DROPPED 
2291 .SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 
as 
3598 ; CHECK IF UNIT SHOULD BE DROPPED 
2294 $- 
2295 017272 010046 CKDROP: MOV RO, -( SP) 
2296 017274 FORCERROR 1$,NOTSSR 
2297 017304 RFLAGS RO 
017304 104421 TRAP CSRFLA 
2298 017306 032700 000040 BIT @I0U,RO 
2299 017312 001010 BNE 1$ 
2300 017314 011600 MOV (SP) ,RO 
2301 017316 012737 177777 003102 MOV @-1,O0UFLG 
2302 017324 000uU UNITN 
017324 013700 002172 MOV UNITN,RO 
017330 104451 TRAP Cs000U 
2303 017332 DOCLN ;ABORT THE PASS 
017332 104444 TRAP CSOCLN 
2304 017334 012600 18: MOV (SP 3+,RO 
2305 017336 000207 RTS PC 
2306 
2307 
be -SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
? 3 
ty s SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM. 
3 
2312 017340 CONFIG: 


2313 017340 004737 016064 JSR PC, SOF INIT 
2314 017344 000207 RTS 
oan -SBTTL KTON,KTOFF - ENABLE/DISABLE MEMORY MANAGEMENT 
3 
ot} s SUBROUTINE - ENABLE MEM MGT 
3 
2319 017346 005737 003122 KTON: TST KTFLG s GOT KT? 
2320 017352 001403 BEQ 1s s NO. 
2321 017354 012737 000001 177572 MOV #1,SRO s YES. ENABLE KTil. 
2322 017362 000207 1$: RTS PC 
2323 
2324 ; 
sre ; SUBROUTINE - DIS/SLE MEM MGT. 
é 
2327 017364 005737 003122 KTOFF: TST KTFLG 3; GOT KT11? 
2328 017370 001405 BEQ 1% ; NO. 
2329 017372 000240 NOP 
2330 017374 000240 woP 
2331 017376 012737 000000 177572 MOV @0, SRO s DISABLE KT. 
2332 017404 000207 1$%: RTS PC 


TSV3 - GLOBAL AREAS 


SETMAP - SETUP PAR6 MAPP 


2371 017506 
| 017510 


2387 

2388 017512 
2389 017512 
2390 017516 004737 017364 


MACRO M1113 
ING 


003122 


14-JUN-64 14:17 

.SBTTL SETMAP - SETUP PAR6 MAPPING 

3¢ 

; 

;THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 

3AN 18 BIT ADORESS. THE OFFSET INTO THE PAGE 

18 RETURNED BIASED TO PARG. 

V INPUTS: 

; RO HIGH ORDER ADDRESS BITS 

: Ri LOW ORDER ADDRESS BITS 

: 

; OUTPUTS: 

; RO OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADORESS) 

; CARRY SET IF SUCCESS 

: CLR IF ERROR 

- Ls 

SETMAP : 
SAVREG sSAVE R1-R4 UNTIL NEXT RETURN 
TST KTFLG sSYSTEM HAVE ABOVE 28K? 
BEQ 10% 3BR IF 
nov R1.R2 iSAVE Low ORDER BITS 
ASR RO sCONVERT WORD ADDRESS TO 32W BLOCKS 
ROR Ri ;MAKE IT DOUBLE PRECISION 
BIC 0177,R1 ;ALINE FOR LOWER 4K BOUNDARY 
CMP R1,KTFLG ;HIGHER THAN EXISTING MEMORY? 
BHIS 10% :BR IF YES 
MOY R1, @OKIPARG ;SETUP MAPPING REGISTER PAR6 
BIC €160000 ,R2 ;SETUP DISPLACEMENT IN PAGE 
ADO #140000 ,R2 ;ADD IN PAR6 BIAS 
MOV R2,RO ;RETURN IN RO 
SEC ;SET SUCCESS 
BR 15% ; 

10$: CLC ;SET FAILURE 

15$: ATS 


- SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
FILL MEMORY WITH A BACKGROUND PATTERN 
INPUTS: 

RO = BACKGROUND PATT 


ERN 
FREE * FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 28K. 


OUTPUTS: 
NONE 
FILLMEM: 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
JSR PC ,KTOFF sDISABLE KT. 


SEQ 0082 
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FILLMEM - FILL 


010003 
013701 
013702 
010321 
005302 
003375 
005737 
001477 
004737 


005000 
013701 
000006 


MACRO M1113 14-JUN-64 14:17 
MEMORY WITH BACKGROUND PATTERN 


003114 
003116 


003122 
017346 
003142 


017406 


172354 
003134 
177572 
177761 
000016 
003136 
172354 
000020 
017632 
017364 


10$: 


35%: 


RO,R3 
FREE ,R1 
FRESIZ,R2 
R3,C(R1)> 
Re 

10% 

KTFLG 

SS$ 
PC,KTON 
RO 


PST32W,R1 
6 


#16,R4 
50 


sCOPY TEST PATTERN 

sGET FIRST FREE LOCATION 

sSIZE OF FREE SPACE BELOW 28K. 
sSTORE A BACKGROUND WORD 

sDONE ALL MEMORY IN FREE SPACE? 


sHIGH ORDER ADORESS STAR 
;GET >28K START ADORESS UN 32W BLOCKS ) 


;CLEAR C BIT 
sCONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


sSETUP PAR6 MAPPING REGISTER 
sSTORE TEST PATTERN IN >28K ADORESS 
+e OF — MAPPING AREA? 
8 
‘BACKUP INTO PAR6 MAPPING — 
sPOINT TO NEXT 4K BLOCK >28K 

MEMORY ? 


sNO KEEP GOING 

3GET SRO CONTENTS 
sCLEAR ALL BUT PAGE NUMBER 
;SEE IF PAGE 7 

sEXIT IF THERE 
ge 

3NO KEEP GOING 

= HED 18 BITS? 

sNO KEEP GOING 

3SET 22 BIT ee 
sKEEP GOING ON ETC. 

; DISABLE KT. 


SEQ 0083 


G2 
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CHPMEM 


COMPARE MEMORY TO BACKGROUND PATTERN 
2431 -SBTTL CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
; COMPARE MEMORY WITH A BACKGROUND PATTERN 
INPUTS: 
RO = BACKGROUND PATTERN 


8 
3 
: 
8 
2438 ; FREE # FIRST LOCATICN AVAILABLE TO DIAGNOSTIC 
2439 : KTFLG * SET TO HIGHEST MEMORY LOCATION IF > 28K. 
2440 8 
2441 ; OUTPUTS: 
2442 3 
2443 3 CARRY - SET IF NO ERROR 
ea4ags A CARRY - CLR IF ERROR 
2445 3 
2446 ; IMPLICIT OUTPUTS: 
2447 3 
2448 3 ERRHI - ERROR HIGH ADDRESS 
2449 3 ERRLO - ERROR LOW ADDRESS 
2450 3 EXPD - EXPECTED DATA 
2451 A RECV - RECEIVED DATA 
2452 3° 
2453 017750 CMPMEM: 
S54 017750 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
2455 017754 010003 MOV RO,R3 SCOPY Na” B saaieens 
2456 017756 004737 017364 JSR PC. i<TOFF sOISABLE K 
2457 017762 013701 003114 MOV FREE ,R1 IGET FIRST pnee gts 
2458 017766 013702 003116 MOV FRESIZ,R2 sSIZE OF FREE SPACE BEL 28K. 
2459 017772 020311 10%: CMP R3,(R1) 3sFREE ~ LOCATION EQUAL TO EXPO? 
2460 017774 001411 BEQ $ sB8R IF Y 
2461 017776 010137 002230 MOV R1,ERRLO 3s SAVE ADDRESS IN ERROR 
020002 37 002226 CLR I sNO HIGH ADORESS 
2463 020006 010337 002222 MOV R3,EXPOD sSAVE EXPD FOR ERROR REPORT 
2464 020012 011137 002224 MOV (R1),RECV sSAVE RECV FOR ERROR REPORT 
2465 020016 000474 BR 50% 3 
2466 020020 005721 15%: TST CR1)>+ sPOINT TO NEXT ADORESS 
2467 020022 005302 DEC Re sDONE ALL MEMORY IN FREE SPACE? 
2468 020024 003362 BGT 10$ ;B8R IF NO 
2469 020026 005737 003122 TST KTFLG 3 GOY KT? 
2470 020032 001472 BEQ 55% s NO. GET OUT. 
2471 020034 004737 017346 JSR PC,KTON s YES. ENABLE KT. 
2472 020040 CLR sHIGH ORDER ADDRESS START 
bk 020042 013701 003142 _ = aarti 3sGET >28K START ADDRESS CIN 32W BLOCKS) 
2475 ROL R1 sCONVERT BLOCKS TO WORDS 
2476 ROL RO sMAKE IT DOUBLE PRECISION 
2477 .-ENDR 
2478 02007S 042701 000177 BIC @177,R1 sALINE 4K BOUNDARY 
2479 020102 010046 MOV »-C(SP) sSAVE HIGH ORDER 
2480 020104 010146 MOV R1,-CSP) sSAVE LOW ORDER 
2481 020106 737 017406 JSR » SETMAP ;SETUP PAR6 MAPPING REGISTER 
2482 020112 010004 MOV »R4 sCOPY ADDRESS BIASED TO PARE 
2483 020114 012601 MOV (SP)+,R1 sRESTORE LOW ORDER IN NON PAR6 FORMAT 
2484 020116 012600 MOV (SP)+,RO sRESTORE HIGH ORDER IN NON PAR6 FORMAT 
2485 020120 020314 30%: CMP R3,CR4) sABOVE 286K LOCATION EQUAL EXPD? 
2486 020122 001411 BEQ 328 36R IF YES 
2487 020124 010037 002226 MOV RO, ERRHI sSAVE HIGH ORDER IN ERROR 


TSvs - GLOBAL AREAS 
CMPMEM COMPARE MEMORY TO BACKGROUND PATTERN 


010137 
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020000 
000200 
172354 
017364 


017364 


000012 


172354 
003122 


32%: 


60$: 


3* 


; 
sROUTINE TO 


sSAVE R1 THROUGH RS ON THE STACK 


PC 
-SBTTL REGSAV 


R1,ERRLO 
R3,EXPD 
(R4),RECV 
50$ 

#2,R1 

RO 

@2,R4 

R4, 160000 
30% 

#20000 ,R4 


0200 , BOKIPARG 
amend LG 


30 
PC ,KTOFF 


603 
PC ,KTOFF 


: 
sCALLING SEQUENCE: 


JSR 


RS ,REGSAV 


sSAVE LOW ORDER IN ERROR 
sSAVE EXPD FOR ERROR REPORT 
sSAVE RECV FOR ERROR REPORT 


F 
sUPDATE NON PAR6 ADDRESS 

sMAKE IT DOUBLE PRECISION ADD 
sUPDATE PAR FORMAT ADDRESS 

sEND OF PAR6 MAPPING AREA? 

36R IF NO 

sBACKUP INTO PAR6 MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK >28K. 
sEND OF MEMORY? 


;BR IF NO 
3TURN OFF MEMORY MAPPING 
3SET FAILURE 


; 
sTURN OFF MEMORY MAPPING 
SET SUCCESS 


- SAVE R1-RS ON STACK 


; THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 


sTHE CALLING ROUTINE. AT 


THE END OF THE CALLING ROUTINE, 


sTHE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
sREGISTERS.. 


;THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 


s;CALLED VIA A JSR PC INSTRUCTION 


REGSAV: 


R4, - 
R2, - 


QQ 


SEeeey 


5 


. 

ES St hh 

ee a twee 
° 


SEQ 0085 


EARN eee rome 
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GETPAT 


020320 
020322 


105 


t? 
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- GET 8 BIT PATTERN FROM OPERATOR 


020320 


116 


124 


.SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 
3*¢ 
;ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
INPUTS: NONE . 


3 
;OUTPUTS: 
; RO OCTAL NUMBER FROM THE OPERATOR 
F 
;CALLING SEQUENCE: 
: JSR PC ,GETPAT 
GETPAT:: 
SAVREG ;SAVE THE GENERAL REGISTERS 
1$: GMANID DATASC,PATDAT,O,377,0,377,NO 
TRAP C$GMAN 
BR 10000$ 
-.WORD PATDAT 
. WORD TS$CODE 
-WORD DATASC 
-WORD 377 
-WORD TS$LOLIM 
. WORD TS$HILIM 
10000$: 
— 1$ sRETRY IF ERROR 
MOV PATDAT,RO ;DATA PATTERN FROM OPERATOR 
RTS PC ;RETURN TO CALLER 


3¢ 
sLOCAL DATA AREA 
3 = 


PATDAT: .WORD 0 3s TEMPORARY STORAGE FOR DATA 
DATASC: Ty ‘ENTER DATA PATTERN’ 
-EVEN 


SEQ 0086 


TSv3 - 
GETSEL 


GLOBAL AREAS 


000000 
177777 


103352 
013700 
020001 
401411 


MACRO M1113 
- ISSUE MENU AND GET OPERATOR RESPONSE 


020566 


14-JUN-64 14:17 


-SBTTL GETSEL 


+ 


- ISSUE MENU AND GET OPERATOR RESPONSE 


;ROUTINE TO ISSUE A MENU AND GET THE OPERATOR'S RESPONSE. 


INPUTS: 


: RO ADDRESS OF ASCIZ STRING OF MENU 
3 R1 MAXIMUM ALLOWABLE OPERATOR RESPONSE 
Hy 
sOUTPUTS: 
; NUMBER OF THE OPERATOR'S SELECTION 
z- 
GETSEL:: 
SAVREG sSAVE GENERAL REGISTERS 
MOV RO,R2 sSAVE THE MENU ADDRESS 
1$ MOV R2,R3 sSTART OF MENU STRING 
es TST C(R3) sEND OF ASCII ? 
BEQ 3$ sBRANCH IF ALL LINES DISPLAYED 
ao ae ie sOISPLAY THE MENU 
o,.- 
MOV @SELASC, -(SP) 
MOV 2, -(SP) 
MOV SP ,RO 
TRAP CSPNTF 
BR ok 
3$: GMANID MENASC ,MENRES,D,-1.0,-1,NO 
TRAP C$GMAN 
BR 10001$% 
-WORD MENRES 
-WORD TSCODE 
-WORD MENASC 
-WORD -1 
«WORD TSLOLIM 
-WORD TSHILIM 
10001$: 
es 1% sRETRY IF ERROR 
MOV MENRES ,RO sGET THE OPERATOR'S REPLY 
CMP RO,R1 sCOMPARE TO MAXIMUM ALLOWED 
os S$ sBRANCH IF OK 
PRINTF RR sDOISPLAY ERROR MESSAGE 
MOV OMENERR , -( SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04,SP 
BR 1$ sRETRY 
S$: RTS PC sRETURN TO CALLER 


045 MENERR: .ASCIZ 
045 SELASC: .ASCIZ 
164 MENASC: .ASCIZ 
EVEN 
MENRES: 


eve eee Menu Selection Too Large +++’ 
‘Enter Menu Selection: ‘ 


-WORD O 


SEQ 0087 


TSV3 - GLOBAL AREAS 
- CHECK MANUAL INTERVENTION LEGALITY 


CHKMAN 


MACRO M1113 


020624 


116 


14-JUN-84 14:17 


IK 7 


.SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGAL ITY 


;¢ 


; ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 


; INPUT: 
; NONE . 
OUTPUT: 
: CARRY 0 MANUAL INTERVENTION NOT ALLOWED 
; 1 MANUAL INTERVENTION IS OK 
;SIDE EFFECTS: 
: A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
; NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
: ALLOWED. 
CHKMAN: : 
SAVREG ;SAVE THE REGISTERS 
MANUAL ;SEE IF MANUAL INTERVENTION OK 
TRAP‘ C$MANI 
BCOMPLETE 14 ;BRANCH IF ALLOWED 
PRINTF @NOMAN ;PRINT THE WARNING MESSAGE 
MOV @NOMAN, -(SP) 
MOV 1, -(SP) 
MOV SP ‘RO 
TRAP  — CSPNTF 
ADD 04,SP 
CLC ;CLEAR CARRY FOR ERROR 
1s: RTS PC ; RETURN 


045 NOMAN: .ASCIZ ‘SNSA @e¢ Manual Intervention not Allowed - Test Aborted «+¢+*' 


-even 


SEQ 0088 


TSV3_ - GLOBAL AREAS 
. - SETUP FREE DIAGNOSTIC SPACE 


ENVIRN 


021076 
021076 
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003114 
000002 
003116 
000004 
002012 
000007 
003114 
003116 
000002 
003120 
177520 


000002 
016466 
177520 


000001 
177520 
177520 


003134 
170000 


003136 





003114 
003116 
003116 


002120 
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7A 


ENVIRN 


SEQ 0089 


- SETUP FREE DIAGNOSTIC SPACE 


; SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 


ENVIRN: MEMORY 
TRAP 


10$: SUB 


15%: MOV 


RO 


#2, FREE 
(RO), FRESIZ 
7 ,FRESIZ 
R2 

10% 

FREE ,RO 
FRESIZ,RO 
#2,RO 

RO ,FREEHI 


; GET 1ST FREE ADDRESS... 
s...AND WORD COUNT. 


; GET NUMBER OF UNITS 
3 TAKE AWAY 7 WORDS PER UNIT 


;GET FIRST FREE ADDRESS 

:POINT TO LAST FREE ADDRESS 

sBACKUP 1 WORD 

sSTORF LAST FREE ADDRESS 

J ORRSSOSRESRESEERESEESEEEEEEEEEEETESEERESES 


sGET = ADORESS 


sSEE IF WE HAVE ONE 

30K TO SET FLAGS 

sRETURN WITH FLAGS CLEAR 
sSAVE PCR CONTENTS 

sADD ONE TO IT 

;GET BOV11 PCR ADDRESS 
sTRY TO WRITE TO IT 

sGET RESULTS 


sTELL THE SYSTEM TYPE 
URN 


sRET 

3;SET THE FLAG 

:8R 40% FOR RELEASE 
;TELL THE SYSTEM TYPE 


sRETURN 


TSV3 - GLOBAL AREAS 
; . SETUP KT11 MEMORY MANAGEMENT REGISTERS 


KTINIT 


2710 
2711 


021224 
021230 


a RR 


012716 
000002 


010037 
000207 
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001577 


000004 


003122 
003122 


177740 


3° 
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. SBTTL 


Mo 


KTINIT 


;ROUTINE TO INIT KT 11 


KTINIT: 


1$: 


2s: 


6$: 
9$: 


KTFLG 

K TENABLE 

or 1577 
4 

@ERRVEC ,RO 

2% ,BOERRVEC 

@eSRO 


LSHIME ,KTFLG 
0177,KTFLG 

RO, B@ERRVEC 

RO 

@KIPARO,R1 
077406, -40(R1) 
RO, (R1)+ 

#200 ,RO 

RO, 22000 


1$ 

#177600, -(R1) 
9% 

6% ,(SP) 


RO, BOERRVEC 
PC 


- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


INI! >26K MEMORY FLAG 
INIT TEST >28K FLAG 


4 ENOUGH MEMORY ( >28K)? 


SAVE OLD ERR VEC PTR. 
SET ERR VEC PTR. 

GOT KT11? 

(TRAP IF NO). 

YES. SET KT FLAG. 


RESTORE OLD ERR VEC PTR. 


RO = AR DATA. 

Ri = KI REGS PTR. 
SET DESCRIPTOR REG. 
SET KIPAR REG. 

BUMP AR DATA BY “4K”. 
AT "1/0"? 


NO. 
YES. SET KTPAR7 FOR I/O. 


SET UP RETURN 
RTI TO NEXT LOCATION 


RESTORE OLD ERR VEC PTR. 


SEQ 0090 


TSVS - GLOBAL AREAS 
- SETUP KT11 MEMORY MANAGCMENT REGISTERS 


KTINIT 
2713 


021322 
021322 


MACRO 1115 


INVERT: : 
002216 TST EXTFEA ; IS SWITCH SET? 
BNE 18 ; YES,EXIT STAGE RIGHT!(or the next one outa town! ) 
1 021304 MOV #100206 , CMDPKT ; WRT SUB-SYS MEM CMD 
021314 021306 MOV @UuSMBK , CMDPKT +2 ; MSG BUF ADOR 
000006 021312 MOV 06 , CMDPKT +6 ; BYTE COUNT 
100010 021314 MOV #100010 , WSMBK ; INVERT THE SWITCH 
021304 MOV OCMDPKT ,R4 ; SET CMDPKT INTO R4 
010752 JSR PC, WRTCHR : 0O IT 
1s: RTS PC ; RETURN 
8 COMMAND PACKET. 
° <, ©3>€177774 :MUST BE ON MOD 4 BOUNDRY. 
CMDPKT:: O :1ST WORD IS TSOS COMMAND. 
6 :2ND WORD IS THE BUFFER LOW ADDRESS. 
0 ;3RO WORD IS THE BUFFER HIGH ADDRESS. 
0 34TH WORD IS THE BYTE/RECORD/FILE COUNT. 
; WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 
WSMBK:: O 31ST WORD:: SEL O 
te) s2ND WORD:: SEL 2 
0 :3RD WORD:: SEL 4 
.EVEN 
3*¢ 
: SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 
: 
3 
; INPUTS: 
;OUTPUTS: 
; The NXMFLG is set if we can test. 
; The NXMLO and NXMHI addresses are setup. 
g- 
MEMCK : 
SAVREG ;SAVE THE REGISTERS 
003126 CLR NXMFLG ;CLEAR THE FLAG 
003130 CLR NXMLO ;CLEAR THE TEST ADDRESS LO 
003132 CLR NXMHI ;CLEAR THE TEST ADDRESS HI 
003136 TST T238 ;IS IT A 11/7238? 


N? 


14-JUN-84 14:17 


SUBROUTINE TO SET EXTENDED FEATURES SWITCH 


RS CURRENT UNIT NUMBER 
OuTPUTS: 
The Extended Features Switch is set. 


-~—-—- —- © 
‘ 


; Requires thet SOFINIT and WRICHR have been done previous to call. 


SEQ 0091 


ba 


TSVS - GLOBAL AREAS MACRO M1113 14-JUN-64 14:17 SEQ 0092 


KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
2770 021346 001407 BEQ is sNO 
2771 021350 023727 002120 007777 CMP LSHIME , 07777 s GREATER ‘HAN 126¥ 
2772 021356 103406 BLO es ; NO 
2773 021360 004737 021476 JSR PC ,NXMTST sSETUP THE ADDRESS 
2774 021364 000427 BR 13% sSET THE FLAG AND Exit 
775 021366 005737 003154 18: TST T23A sIS IT A 11/723A? 
2776 021372 001415 BEQ Ss :NO 
2777 021374 023727 002120 005777 28: CMP — 05777 sGREATER THAN 96K 
2778 021402 101025 BHI 14 sYES,23A/236 WITH 126K MEMORY 
2779 021404 023727 002120 003777 CMP L SHITE, @3777 sGREATER THAN 64K BUT LESS THAN 92K? 
2780 021412 103403 BLO sNO, 24K 
2781 021414 004737 021476 JSR PC, NXMTST sSETUP THE 
2762 021420 000411 BR 13% sSET THE FLAG AND EXIT 
27863 021422 023727 002120 001577 4%: a LSHIME ,@1577 sGREATER THAN 24K BUT LESS THAN 64K? 
2784 021430 103410 BLO 14% sNO, TELL THEM AND EXIT WITH FLAG CLEAR 
2785 021432 004737 021476 JSR PC .NXMTST sSETUP THE ADDRESS 
2786 021436 062737 000077 003132 ADO 077 , NXMHI sFOOL Le 11/02 € 11/03 
2787 021444 005237 003126 13$: INC LG sSET THE FLAG 
2788 021450 000411 BR 15$ sEXIT 
2789 021452 000410 148%: 15% sNOP FOR PRINTOUT 
2790 021454 PRINTF @NOMEM sTELL THEM € EXIT eeeND PRINTeoces 
021454 012746 005456 MOV @NOMEM, -( SP) 
021460 012746 000001 MOV #1,-(SP) 
021464 010600 MOV »RO 
1466 104417 TRAP CSPNTF 
021470 062706 000004 ADO 04, SP 
2791 021474 000207 158: RTS PC sRE TURN 
2792 
2793 s¢ 
Soee ; SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 
; 
te s OUTPUTS : NXMLO,NXMHI sSETUP WITH NXM ADDRESS 
; 
2796 3° 
2799 
2600 021476 013701 002120 NXMTST: MOV LSHIME ,R1 3;GET TOP OF MEMORY 
2601 021502 062701 000200 ADO ’ sMAKE IT I70 BLOCK OR OTHER NXM 
2602 021506 042701 000177 BIC @177,R1 
28603 021512 010102 MOV R1,R2 sRESAVE RESULTS 
2804 -REPT 6 
2605 ASL Ri sPUT IN PLACE FOR XFER 
2606 - ENOR 
2607 021530 010137 003150 MOV R1,NXMLO sSAVE TEST ADORESS LOW 
2608 000012 -REPT 10. 
a ASR R2 sPUT IN PLACE FOR XFER 
1 . 
2811 021560 042702 177700 BIC #177700,R2 sD0N'T WANT ILA! 
12 021564 010237 003132 MOV R2 ,NXMHI sSAVE TEST ADORESS HIGH 
oes 021570 000207 RTS PC 3RE TURN 
2815 021572 ENDMOD 


TSV4 - MISCELLANEOUS SECTIONS MACRO M1113 14-JUN-84 14:17 SEQ 0093 
KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
? -TITLE TSV4 - MISCELLANEOUS SECTIONS 
8 
9 02157 BGNMOD 1TSV4 
021572 TSV4:: 
10 
16 
17 
18 
19 .SBTTL PROTECTION TABLE 
20 021572 BGNPROT 
021572 LSPROT: : 


21 021572 177777 «#177777 «177777 “he -bs -k, +t sNO DEVICE PROTECTION REQUIRED. 


. WORD 
22 021602 ENDPROT 


Ore 


TSV4 - MISCELLANEOUS SECTIONS MACRO M1115 14-JUN-84 14:17 


INITIALIZE SECTION 


2 .SBTTL INITIALIZE SECTION 
: 
3 *¢ 
27 ;THE INITIALIZE SECTION CONTAINS THE COCING THAT IS PERFORMED 
e 3;AT THE BEGINNING OF EACH PASS. 
29 3 
30 3IF “START” OR “RESTART”, SET QUICK-PASS FLAG AND BUS-INIT. 
31 :IF “CONTINUE”, NOTHING IS REQUIRED. 
32 3 
33 8-- 
34 3° 
35 s INSERT TEMPORARY JUMP TO ODT 
3% 3- 
37 021602 BGNINIT 
021602 LSINIT:: 
38 021602 005037 002216 403: CLR EXTFEA 
39 021606 005037 003126 CLR NXMFLG 
40 021612 012737 006356 002170 MOV @EPRT1 ,EPRTSW sSET UP PRIMARY MESSAGE FOR REPLACEMENT 
41 021620 005037 003144 CLR SIFLAG sCLEAR “SOFT INIT” FLAG 
42 021624 005037 003124 CLR K TENABLE sCLEAR TEST ABOVE 28K FLAG 
43 021630 005037 002272 CLR AMSIZ sCLEAR RAM SIZE FOR RAMERR ROUTINE 
44 021634 READEF @€F .CONTINUE 
021634 012700 000036 @€F . CONTINUE ,RO 
021 104447 AP CSREFG 
45 021642 BNCOMPLETE 13% 
021642 10302 Cc 1 
46 021644 023737 002172 002012 CMP UNITN,LSUNIT sUNIT IN RANGE? 
47 021652 103070 BHIS 43 36R IF NO. 
46 021654 005737 003102 TST OUFLG sDROPPED UNIT? 
49 021660 100472 BMI NXTU 3;6R IF YES 
SO 021662 013701 002172 MOV UNITN,R1 
51 021666 00630 ASL R1 
S52 021670 005761 003166 TST ERTABL(R1) 
53 021674 001516 BEQ SETU 
S4 021676 032761 040000 003166 BIT @BIT14,ERTABL(R1) 3; DROPPED? 
55 021704 001060 NXTU 
56 021706 EXIT T 300 NOTHING IF “CONTINUE”. 
021706 104432 TRAP CSExIT 
021710 000416 -WORD L10030- 
57 021712 1%: READEF @€F .NEW 
0217 012700 000035 @€F .NEW,RO 
021716 104447 TRAP CSREFG 
58 021720 BNCOMPLETE NXTU 3; TAKE NEXT UNIT IF NOT NEW PASS. 
0217, 103052 BCC NXT 
59 021722 READEF @#€F .START 
0217 012700 000040 @€F .START,RO 
021726 104447 TRAP CSREFG 
60 021730 BCOMPLETE 2% 
0217 103404 cs $ 
61 021732 ADEF @#€F .RESTART 
021732 012700 000037 @€F .RESTART ,RO 
021736 104447 TRAP CSREFG 
62 021740 BNCOMPLETE 31% 
021 103031 BCC 31% 
63 021742 2s: s1ST PASS, BUS-INIT... 
64 021742 BRESET 3BUS RESET. 
021742 104433 TRAP CSRESET 


1$V4 - MISCELLANEOUS SECTIONS MACRO M1113 14-JUN-84 14:17 SEQ 0095 


INITIALIZE SECTION 


65 021744 005037 002 CLR TSTCNT sNUMBER OF TESTS RUN IN PASS 
66 021750 005037 002212 CLR FATFLG sCLEAR FATAL ERROR COUNT 
67 021754 005037 003134 CLR T23A sCLEAR 11/23A FLAG 
68 021760 005037 003136 CLR T2386 sCLEAR 11/238 FLAG 
69 ; MOV 0340, -( SP) 
70 ; MOV 208, -( SP) sRETURN TO DEBUGGER 
71 ; JMP 0.00T s;@@ENTER THE DEBUGGER 
72 021764 005037 003370 CLR SKIPT sCLEAR THE SUBTEST “SKIPPER” 
73 021770 20%: 
74 021770 012737 177777 002174 MOV @-1,QVP s...QUICK VERIFY... 
75 021776 004737 020720 JSR PC, ENVIRN ;SET ENVIRONMENT. 
76 022002 004737 021100 JSR PC ,KTINIT sINITIALIZE KT MEMORY MANAGEMENT 
77 022006 012700 003166 MOV @ERTABL ,RO 
78 022012 30$: CLR (RO)+ sCLEAR THE ERROR TABLE 
79 022014 003366 CMP RO, @ERTABE 
103774 BLO 30 
61 022022 000404 BR aa 
005037 002174 31%: CLR Q@vP 
= 022030 0001357 022100 Jp PASRPT 1GO REPORT THE STATUS 
85 022034 4%: 
86 022034 012737 177777 002172 NEWPAS: MOV @-1,UNITN sINIT UNIT NUMBER 
87 022042 37 062210 CLR VCNT ;CLEAR COUNT OF DEVICES RUNNING 
022046 NXTU BREAK 
022046 104422 TRAP CsBRK 
89 022050 005237 002172 INC UNITN ;...AND SET NEXT UNIT NUMBER. 
022054 023737 002172 002012 CMP UNITN,LSUNIT 
91 022062 103423 BLO SETU 
022064 012737 177777 003102 MOV @-1,0UFLG 
93 022072 000401 BR 118 
94 022074 DOCLN sABORT, NO MORE UNITS. 
022074 104444 TRAP CSO0CLN 
95 022076 000240 11%: NOP 
96 022:00 PASRPT: 
97 022100 023727 002012 000001 CMP LSUNIT,@1 sHOW MANY UNITS SELECTED? 
98 022106 101752 BLOS NEWPAS ;BR IF ONLY 1 
99 022110 005737 002210 TST DEVCNT sARE ANY STILL RUNNING? 
100 022114 001747 BEQ NEWPAS BR IF NO 
101 022116 RFLAGS RO 
022116 104421 TRAP CSRFLA 
102 022120 032700 000100 BIT #ISR,RO sSHOULD WE PRINT STATISTICS 
of 022124 001343 BNE NEWPAS BR IF NO 
105 022126 T 
022 104424 TRAP CSORPT 
106 022130 000741 BR NEWPAS 
107 022132 10%: 
109 022132 SETU: GPHARD UNITN,RO sGET UNIT N P-TABLE POINTER. 
022132 013700 002172 MOV UNITN,RO 
022136 104442 TRAP C$GPHRD 
110 022140 BNCOMPLETE NXTU ;68R IF UNIT NOT AVAILABLE. 
0221 103342 Bcc NXTU 
111 022142 005037 003102 CLR OUFLG sCLEAR “DROPPED” FLAG. 
112 022146 005237 002210 INC DEVCNT 
113 022152 012001 MOV CRO)+,R1 sGET 1ST REGISTER ADORESS. 
114 022154 010137 002176 MOV R1,CSRADDR sADORESS OF REGISTERS OF UNIT UNDER TEST 





FB 
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INITIALIZE SECTION 


116 022160 012001 MOV (RO)+,R1 sGET VECTOR ADDRESS. 
117 >MOVv (RO),R2 sGET INTERRUPT PRIORITY 
1186 :MOV Re, IPRI sSET INTERRUPT PRIORITY. 
119 022162 010137 002200 MOV R1,IVEC sSET INTERRUPT VECTOR POINTER... 
120 022166 012721 016306 MOV @INTR, (R1)>+ 3... VECTOR.. 
121 022172 013721 002202 MOV IPRI, (R1)- 3...AND PRIORITY. 
122 
123 022176 1$: 
124 ; TST ave 31ST PASS ?? 
125 3 BEQ 5$ 3NO, SKIP THE PASS 1 STUFF. 
137 
3 
128 31ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
<= ;THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 
1 3 
131 022176 013701 002172 MOV UNITN,R1 
132 022202 006301 ASL R 
133 052761 100000 003166 BIS @BIT15,ERTABL(R1) sSAY DEVICE RUNNING 
134 022212 005037 005770 CLR EXTA sCLEAR ERROR EXTENSION FLAG. 
135 022216 023727 002012 000001 CMP LSUNIT,@1 sARE WE TESTING MULTIPLE UNITS? 
136 022224 101416 BLOS 10% 36R IF NO. 
137 RFLAGS YES -- GET OPERATOR FLAGS. 
022226 104421 TRAP CSRFLA 
022230 032700 001000 BIT T. sSHOULD WE PRINT UNIT ¢@? 
139 022234 001412 Qa iBR IF NOT. 
140 022236 PRINTF @PUNIT,UNITN sPRINT THE UNIT @ 
022236 013746 002172 MGV UNITN, -( SP) 
022242 012746 022330 MOV IT, -(SP) 
022246 012746 2 MOV @2,-CSP 
022252 010600 MOV »RO 
022254 104417 TRAP CSPNTF 
022256 062706 000006 06,SP 
141 022262 108: 
142 022262 005037 003104 CLR Vv 
4 013701 002176 MOV CSRADOR ,R1 sADDRESS OF 4 REGISTER 
144 022272 010102 MOV 1,R2 SSTART OF REGISTERS 
14S 022274 062702 000002 ADD @TSSR ,R2 sADDRESS OF TSSR REGISTER 
146 022300 004737 016466 JSR ° iTEST BOTH CONTROLLER REGISTERS... 
147 022304 103005 BCC es 3..-AND BR IF ALL OK. 
148 022306 010137 003104 MOV R1.NODEV sFLAG DEVICE AS NON-EXISTENT 
149 022312 012737 177777 003102 MOV 6-1,OUFLG sDROP THIS UNIT. 
a7 022320 2s: 
3 
4 sFINALLY, SET CPU PRIORITY AND WE'RE DONE. 
8 
154 022320 5%: SETPRI @PRIOO sENABLE INTERRUPTS. 
022320 012700 000000 MOV @PRIOO,R 
022324 104441 TRAP CsSPRI 
155 022326 ENOINIT 
022 L10030: 
022326 104411 TRAP CsINIT 


156 
cH 022330 045 116 045 PUNIT: 


— /ENSNBAseees TESTING UNIT SD28A seee0/ 
EVEN 


SEQ 0096 
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ADD AND DROP UNITS SECTIONS 


160 .-SBTTL ADD AND DROP UNITS SECTIONS 
161 
16e 3¢e¢ 
163 ; THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
164 ; TO BE CA) ADDED TO THE TEST LIST FOR THE FIRST T ‘ 
165 3 OR (8) RE-INSERTED IF IT HAD BEEN PREVIOUSLY OROPPED. 
166 '-* 
167 022376 BGNAU 
022376 LSAU:: 
168 022376 010001 MOV RO,R1 ; GET UNIT TO BE ADDED (RO) 
169 02 006301 ASL R1 ; MAKE IT A WORD INDEX 
170 022402 052761 100000 003166 BIS #100000 ,ERTABL(R1) s SET THE “ACTIVE” BIT 
171 022410 042761 040000 003166 BIC #40000 ,ERTABL(R1) ; CLEAR THE “DROPPED” SIT 
172 022416 PRINTF #1%,RO 
022416 010046 MOV RO, -( 
022420 012746 022444 MOV #1%,-C(SP) 
2424 012746 000002 MOV @2,-(SP 
022430 010600 SP, 
022432 104417 TRAP CSPNTF 
022434 062706 000006 ADD “6, 
173 022440 EXIT AU 
022440 000167 .WORD J$UMP 
022442 -WORD 1L10031-2-. 
174 022444 045 116 045 «18: .ASCIZ /SNSA UNIT SDSBA ADDED/ 
175 EVEN 
176 
177 022472 ENDAU s UNUSED. 
022472 L10031: 
_ 022472 104452 TRAP CsAu 
see 
179 3; THE DROP-UNIT SECTIGN CONTAINS THE CODING THAT CAUSES A DEVICE 
a ; TO BE REMOVED FROM THE TEST LIST. 
3 
182 3 SUPVSR DOES THE “DROPPING”. THIS IS JUST TO TELL THE MAN. 
183 ; “DROPPED” UNITS ARE RE-SELECTED ON OPERATOR "STA” OR “ADD” 
184 : COMMAND, OTHERWISE REMAIN INACTIVE. THE “DISPLAY” COMMAND 
185 3 WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
186 3 WHICH ARE STILL ACTIVE. 
+H : UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 
189 022474 BGNDU 
022474 
190 C22474 012737 177777 003102 MOV @-1,0UFLG 
191 010001 MOV RO,R1 
192 006301 ASL R1 
193 0 052761 140000 003166 BIS #140000 ,ERTABL(R1) ; SAY DROPPED 
194 €22514 0002 000240 000240 240,240,240 s 222222222 
195 022522 PRINTF #1%,RO 
022522 010046 MOV RO, -( SP) 
022526 012746 022550 MOV #1$%,-(SP) 
022530 012746 000002 MOV @2,-(SP) 
022534 010600 MOV SP ,RO 
022536 104417 TRAP CSPNTF 
022540 062706 000006 #6 ,SP 
196 022544 EXIT OU 
022544 000167 -WORD J$JMP 
022546 000030 -WORD 1L10032-2-. 


TSV4 - MISCELLANEOUS SECTIONS 
ADO AND 


DROP UNITS SECTIONS 


045 


104453 


013705 
012703 
004737 
103420 
012727 
000000 


116 


177772 
177756 


017272 


MACRO M1113 
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SEQ 0094 


-ASCIZ /SNSA UNIT 808A DROPPED/ 


045 «(i1$: 
.EVEN 
ENDDU 
L1003e2: 
TRAP 


C$0u 


zee 
; AUTO-DROP CODE SECTION. 


BGNAUTO 


L$AUTO:: 


10$: 


ENDAUTO 


L10033: 


TRAP 


CSRADOR ,RS 
#360. ,R3 
PC ,WAITF 
20% 

250. 

ite -(PC)> 


LSDLY,C(PC)-> 
0 


10$ 
PC ,CKDROP 


CsAuTO 


; UNUSED. 


sPOINT TO DEVICE REGISTER 

sENOUGH TIME FOR 2400' REEL TO REWIND 
sWAIT FOR SSR TO SET 

sLEAVE WHEN SSR IS SET 

sWAIT FOR .25 SECONDS 


sKEEP GOING 


| 
| 
| 
| 
:BUMP COUNTER DOWN 
sTRY AND DROP UNIT 


= 


TSV4 - MISCELLANEOUS SECTIONS 
CLEAN-UP AND REPORT CODING SECTIONS 


223 022662 013705 002176 
224 022666 005737 003102 
225 022672 100405 


228 022674 012765 000002 


000000 
229 022702 004737 016340 


022706 104412 


022710 012746 023152 
000001 


012704 003166 
005003 


023020 010346 


18. 
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.SBTTL CLEAN-UP AND REPORT CODING SECTIONS 


; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 
; EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). 
: USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 


BGNCLN 
LS$CLEAN:: 
MOV CSRADODR ,RS sPOINT TO DEVICE REGISTER 
TST DUFLG :"DROPPED” FLAG IS SET ON.. 
BMI 1$ . AND GROSS CONTROLLER FAULT. 


+21 IDON'T TRY TO XCT CLEANUP CODE. 


MOV #0, TSSR(RS) 
JSR PC ,WAITF 


2$: ENOCLN 
TRAP  C$CLEAN 


zee 
; THE REPORT CODING SECTION CONTAINS THE 
; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


oe 
T 


00 SOFT INIT 


LSRPT:: 
PRINTS #@DEVSUM 
MOV @DEVSUM, -( SP) 
MOV #1,-(SP) 
Vv SP ,RO 
TRAP CSPNTS 
ADD 04, 
MOV R2, -( SP) 
MOV R3,-(SP) 
MOV R4,-(SP) 
MOV @ERTABL ,R4 ; GET START OF ERROR TABLE. 
CLR R3 ; CLEAR UNIT NUMBER 
1%: MOV (R4),R2 ; GET ERROR TABLE ENTRY € TEST IT. 
BEQ ag ; ZERO IF UNIT NOT RUN 
BPL 4s 
BIT #681714 ,R2 ; WAS a — 
BNE es ; BR IF YE 
BIC 6107777 ,R2 3 GET ERROR COUNT FIELD 
PRINTS @DEVONL .R3,R2 ; PRINT 
R2,-(SP 
MOV R3,-C(SP) 
MOV @DEVONL , -( SP) 
MOV @3,-(SP) 
MOV SP ,RO 
TRAP CSPNTS 
#10,SP 
BR $ 
2s: CMP R2, #160000 ; WAS UNIT NON-EXISTENT? 
3% ; BR IF NO 
PRINTS @DEVNXR,RS 
MOV R3, 


-( SP) 
MOV ODE VNXR , -( SP) 


SEG 009% 


ee a ee 
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CLEAN-UP AND REPORT CODING SECTIONS 


254 
255 
256 
257 


012746 


000002 


MACRO M1113 


3$: CMP 


30%: BIC 
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@2,-(SP) 
SP 


R2, 160001 ; WAS UNIT NOT READY AT STARTUP? 
30$ ; BR IF NO. 


@DE VDRO ‘ate »R2 


CSRPT 


/SNSADEVICE STATUS SUMMARY : SN/ 

/$A UNIT SO038A ONLINE, ERRORS = sDsSN/ 

/#A UNIT S038A DROPPED, NON-EXISTENT REGISTERSN/ 
/#A UNIT S038A DROPPED, NOT READY AT STARTUPSN/ 
/#A UNIT SD38A DROPPED, ERRORS = sDsN/ 


SEQ 0100 


TSV7 - HARDWARE TESTS 
CLEAN-UP AND REPORT CODING SECTIONS 


66 
67 02 


ve 


023472 
023472 


023472 
023472 
023472 


012737 


012737 


004737 
004737 


012737 
004737 
103426 
012727 


000000 
013727 
000000 


006356 


sere 
000250 
002116 
177772 
177756 
024112 
002212 


KB 
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002170 


002206 


024112 


.TITLE TSV7 - HARDWARE TESTS 1-8 


BGNMOD TSV7 


TSV?:: 


-SBTTL TEST 1: 


3°¢ 


INITIALIZE #4 TEST 


;THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 
;CONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS 


3(I.E. LOOPBACK 
sEXTENDED FEATURES SWITCH, ETC.) 


BGNTST 


MOV 
:TEST 1 


MO 
T21L00P: 


OEPRT1,EPRTSW 


PC ,OSBINT 
@TST211ID,RO 
PC, TSTSETUP 
#5 ,LOOPCNT 


PC, T21REST 
PC, T21RT2] 


ENABLED, FORCING WRONG PARITY, INVERTING SENSE OF 


J SSSSOSSSSSHESHSSSSSSASSSESSEASSSEEAASSSESESESEHESSEAAESEEEHEHESESEEEEEEES 


; 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
{SSSESESSSSSSESSSSSSHSSESSSSSSSSSHEESHAS SEAS SESEASESESESSHSSSEEESEHEEEEES 


11$: JSR 


#65000. , 
as , SOF INIT 
250 


T210LY 


SEQ 91091 
Tl:: 

;SET UP PRIMARY ERROR MESSAGE 

sDISABLE INTERRUPTS 

sASCII MESSAGE TO IDENTIFY TEST 

300 INITIAL TEST SETUP 

sPERFORM S ITERATIONS 

;SET COMMAND PACKET 

iSET UP OTHER COMMAND PACKET 

3SET DELAY ROUTINE 

:00 INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

;DELAY FOR A REWIND TO FINISH 
MOV @250,(PC)+ 
. WORD 0 
MOV LSOLY,(PC)-+ 
-WORD O 
DEC aire) 
BNE 
DEC *32cPC) 
BNE .-20 


;BUMP COUNTER DOWN 

;8R, IF MORE TIME TO GO 
sBUMP COUNT 

;CONTENTS OF TSSR REGISTER 


TSV7 - 


TEST 


73 


023612 
023612 


HARDWARE TESTS 
1: INITIALIZE 04 ‘Test 


012124 
012704 


013737 


005054 
012124 
104406 


112737 
112737 


104456 
000150 
024313 


024070 


002172 
010752 


002212 


000200 
000010 


024200 
000000 
016426 


002212 


000000 
016340 
000002 


176377 
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024110 


024210 
024211 


208; 


14 - JUN-84 


ERROF 


MOV 


L& 


14:1? 


ERRNO, SF IERR , SF IMSG 


@T21PACKET ,R4 


J SSSSSHSSSHSSSHSSHESSSESEHESSEHEHSEHEHEHEHEHESESESHESHESESEEEEEEEEEKESEESD 


; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


; 
FSSSSHHSHSSSSSSSSSSHSSSSSSSHASHSEHSSESEHEESHOESESESESHEESEEESESEESEEEESEEEED 


23%: 


253: 


35%: 


ERRHRD 


UNITN, T210SW 
PC ,WRTCHR 
23% 

FATFLG 


RO,R1 
ERRNO, WRTMSG , SF IMSG 


#200, T21BS0 
#10,7T218S1 


@T21PK2 ,R4 
R4, TSOBC RS) 
PC ,CHKTSSR 
30% 

RO,R1 


FATFLG 
ERRNO, T21SSR,PKTSSR 


+ yh + — a 
»WAITF 
TSSRC RS),R1 


R1,R 
@tC<HIADOR> »R2 
@SSR!NBA,R 


ERRNO” T21AM3 , EXPREC 





SEQ 0102 
sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
. WORD 101 
. WORD SFIERR 
. WORD SF IMSG 
;SUBROUTINE NEEDS PACKET ADORESS 
sSET UP DRIVE NUMBER 
+ yee * WRITE CHARACTERISTICS 
s6R, IF COMMAND ISSUED OK 
; BUMP scone 
;SAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
. WORD 102 
. WORD WRTMSG 
. WORD SF IMSG 
CSCLP1 


sWRITE MISCELLANEOUS CONT/READ STATUS 
sFUNCTION SELECTION BIT 


sWRITE SUBSYS MEM PACKET 
OMMAND 


sERROR, SAVE TSSR 
sBUMP COUNT 
sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CSE 
-WORD 103 
-WORD T21SSR 
-WORD PKTSSR 
SCOPE LOOP 
TRAP CsCLP1 


sISSUE A SOFT INITIALIZE 

sWAIT FOR JUST THE SSR BIT TO SET 
sREAD THE TSSRK BACK 

sWORK REGISTER 

sCLEAR OUT OTHER BITS 

;SOME OF THE BITS THAT SHOULD BE SET 
sIS OFF LINE BIT SET 

s8R, IF ORIVE IS OFF LINE 

sEXPECTED (R2) = RECEIVED (R1) 


s6R, THEY ARE EQUAL (0K) 

sBUMP COUNT 

s"ERROR TRYING TO INIT _— WRITE MISC. 
CSERHRD 


104 
T21AM3 


THORO 
. WORD 


024214 


015564 


100206 
024210 


TSV7 - HARDWARE TESTS 1-8 
TEST 1: INITIALIZE 4 1 


es! 


017272 
024211 


016546 
023522 


MACRO M1113 


37$: 


383: 


40$: 


63%: 


CKLOOP 
BR 
ERROF 


JSR 
CLC 
RORB 
BNE 
CKLOOP 


JSR 
BCC 


JMP 
EXIT 


14-JUN-84 14:17 


40s 
ERRNO, T210FL ,EXPREC 


PC , CKDROP 


PC, TSTLOOP 
63% 


T21L00P 
TST 


7° 
;LOCAL STORAGE FOR THIS TEST 


19-<.-TSV2E7> 


100004 
T21DATA 
0 

10. 
T21BFR 
0 

20. 

0 

i¢) 


0 
25. 


SUBSYSTEM MEMORY COMMAND PACKET 


. BLK 
T21PACKET: 

. WORD 

. WORD 

. WORD 

. WORD 
T21DATA: 

. WORD 

. WORD 

. WORD 

. WORD 
T210SW: .WORD 
T210LY: .WORD 
T21BFR: .BLKW 
; WRITE 
i 

-BLKB 
T21PK2: 

. WORD 

. WORD 

. WORD 

. WORD 

.EVEN 
T216F 2: 
T218S0O: .BYTE 
T218S1: .BYTE 
T21S2: .WORD 
T2183 . WORD 


10-<.-TSV2E7> 


100206 
T218F 2 
0 

6. 


oooo 


SEQ 0103 
«WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 
sSKIP OVER OFF-LINE STUFF 
sORIVE IS OFF LINE 
TRAP CSEROF 
-WORD 105 
«WORD T210FL 
-WORD EXPREC 


;TRY AND DROP UNIT 
sDON'T LET CARRY SNEAK IN 
s;TRY NEXT “LOWEST” BIT POSITION 
sLOOP UNTIL ALL EIGHT BITS TESTED 
;SCOPE LOOP 
TRAP CsCLP1 


300 WE NEED TO ITERATE TEST 
sBR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 
;ALL DONE THIS TEST 
TRAP 
. WORD 


CsExIT 
L10036-. 


sCOMMAND PACKET FOR TEST 
;WRITE CHARACTERISTICS COMMAND, WITH, ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sDRIVE SELECT WORD 
;DELAY COUNTER 
sMESSAGE BUFFER 


s;WRITE SUB SYS MEM COMMAND, IE AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


;BSELO AREA --- “COMMAND” BYTE 
;6SEL1 AREA 
;SEL 2 AREA 


;DATA AREA 


TSv? 
TEST 


2: 


$ 1-8 


TES’ 
INITIALIZE @4 TEST 


024216 127 122 
024313 124 123 
024415 104 162 
024434 111 156 
024456 
024456 
024462 012701 024070 
024466 012721 100004 
024472 012721 024100 
024476 005021 
024500 012721 000010 
024504 012721 024114 
024510 
024512 012721 000024 
024516 005021 
024520 005011 
024522 012702 000020 
024526 012762 177777 
024534 005742 
024536 020227 000000 
024542 001371 
024544 000207 
024546 
024 
024552 012701 024200 
024556 012721 100206 
024562 012721 024210 
024566 005021 
024570 012721 000006 
024574 
024576 012701 024210 
024602 005021 

24604 005011 
024606 000207 
024610 
024610 
024610 104401 


MACRO M1113 


14-JUN-84 14:17 


;LOCAL TEXT MESSAGES FOR TEST 


.*. 
,. 


SEQ 0104 


‘WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accep 
‘TSSR Init. Failed After WRITE MISCELLANEOUS CONRTOL/READ> STATUS 


111 T2iSSR: .ASCIZ 

123 T21AM3: .ASCIZ 

151 T210FL: .ASCIZ ‘Orive is OFFLINE’ 

151 TST21I0: owe -ASCIZ ‘Initiel:zetion 04° 


;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


;WRITE SUBSYSTEM MEMORY C 


T2iREST: 
S 


MOV @T21PACKET,R1 
MOV #100004 ,(R1)- 


MOV @T21DATA,(R1)+ 
CLR (R1 on 
MOV 06. 
MOV oreiBrR, tr )- 
CLR (R1)+ 
MOV 020 ~CR1)+ 
CLR (R1)+ 
CLR (R1) 
MOV #20 ,R2 
024114 64%: MOV 0177777, T21BFRC(R2) 
TST -(R2) 
CMP R2,00 
BNE 64% 
RTS PC 
T21RTe2: 
SAVREG 
V @T21PK2,R1 


MOV #100206, (R1)+ 
MOV 7 C(R1)+ 


CLR (R1)+ 

MOV 06.,(R1)+ 
CLR (R1)> 

MOV @T21B8F2,R1 
CLR (R1)+ 

CLR (R1) 

RTS PC 

ENDTST 


;SAVE THE REGISTERS 

;START OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK 
sADORESS OF a DATA BLOCK 
sEXTENDED ADORESS 

;SIZE OF DATA BLOCK IN BYTES 
s;ADORESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
sNUMBER OF LOCATIONS one BE Data 


s;CHECK R2 FOR ZERO 
;BR, IF NOT AT ZERO YET 
RETURN 


s;SAVE THE wg he 5 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, TE 
sADDRESS OF DATA BLOCK 

;EXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 


s;ADDRESS OF DATA FOR WRT SUB SYS MEM 


RETURN 


L10036: 


TRAP CSETST 


-SBTTL TEST 2: OFF-LINE AND REJECT REWIND 


Hed 


; 
;THIS TEST VERIFIES BASIC TAPE-MOTION COMMAND DECODING AND BASTC 


TSV7 - HARDWARE TE 
TEST 2: OFF -L INE 


012737 


012737 


012124 
012704 


S$ 1-8 


ete 


027132 
027224 


016064 
002212 


026160 


sT MACRO M1113 14-JUN-64 14:17 
"™D REJECT REWIND 


002170 


002206 


sOPERATION OF THE aan nat the ak COMMAND. IT DOES NOT 
sNECESSARILY DEMONSTRAT am, ME TRANSPORT CAN BE REWOUND FROM AN 
sARBITRARY POSITION ON Tet SUBSEQUENT TESTS IMPLICITLY 

i CHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST 
sTYPICALLY REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST 
SEQUENCES. THE TEST CONSISTS OF THE FOLLOWING THREE SUBTESTS 

: 

3° 


BGNTST 

T2:: 
MOV @EPRT1, Spee, sSET UP PRIMARY ERROR MESSAGE 
JSR PC ,.OSBIN sDISABLE INTERRUPTS 


MOV erstze10, RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP s00 INITIAL TEST SETUP 
MOV #5 ,LOOPCNT sPERFORM S ITERATIONS 

3° 


; 

sTEST 2, SUBTEST 1 

; 

sVERIFIES THAT ALL TAPE-MOTION COMMANDS ae 


sMODE CODES) TERMINATE WITH FUNCTION REJECT 
sOFF-LINE STATUS WHEN THE TAPE ge gp ow IS OFF-LINE. 


ING, AF 
;THAT FUNCTION REJECT TERMINATION WAS ACCOMPLISHED. 


:- 
T22L00P : 
3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T2.1: 
TRAP C$6SU8 

JSR PC, T22REST sSET COMMAND PACKET 

JSR PC. T22RT2 :SET UP OTHER COMMAND PACKET 
§ SSCHSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHSSSSHSSSHESSSSSSSSSSSSSEEHOSES 
b 
; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


JSR PC ,SOF INIT s00 INITIALIZE ON CONTROLLER 

BCcSs 208 :6R IF ay WAS OK 

INC FATFLG s8UNP COUN 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERROF ERRNO,SFIERR,SFIMSG 'FATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 201 
.WORD SFIERR 
-WORD SFIMSG 


20%: 
MOV @T2Z2PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


FS SSSOSSESHSSSSSSSSSHSSESSSSSESSSSESSSEHSSSOSSSSESSESSSHSSSSSEHHEHSEHSEES 


SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


SEO 9195 


_ j 
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TEST 2: OFF-LINE AND REJECT REWIND 1 
289 ; 
290 FSSSSSSSSHSSSSSSESSSSESHSSHSSESHSHSHESESSESSSESSSSSSESSEESESESSEOSHEEOESSEEHOEEOS 
291 
292 024704 004737 010752 JSR PC ,WRTCHR ISSUE WAITE CHARACTERISTICS 
293 024710 103407 BCS 23% 18R, IF COMMAND ISSUED Ow 
294 024712 005237 002212 INC FATFLG ;BUMP COUNT 
298 024716 010001 MOV RO,R1 ISAVE CONTENTS OF TSSR 
299 024720 ERRHRD ERRNO, WRTMSG, SF IMSG ;WRITE CHARACTERISTISC FAILED 
024720 104456 TRAP CSERHRO 
024722 000312 .WORD 202 
024724 005054 .WORD  WRTMSG 
024726 012124 .WORD  SFIMSG 
300 024730 238: CKLOOP 
024730 104406 TRAP ss CSCLP 1 
301 024732 013701 026210 MOV T22BFR+6,R1 ;PICK UP XxTSO 
302 024736 032701 000004 BIT 04 ,R1 31S UNIT WRITE -LOCKED? 
303 024742 001407 BEQ 24 sNO, PROCEED WITH TESTING 
304 024744 005237 002212 INC FATFLG sBUMP COUNT 
308 024750 ERROF ERRNO, T22WLK, SF IMSG sTAPE IS WRITE LOCKED 
024750 104455 TRAP = CSERDF 
024752 000313 .WORD 203 
024754 027012 “WORD T22MLK 
756 012124 .WORD  SFIMSG 
309 024760 DOCLN 
024760 104444 TRAP —- C$DCLN 
310 024762 24s: CKLOOP 
024762 104406 CSCLP1 
311 024764 005737 002216 TST EXTFEA sCHECK FOR EXTENDED FEATURES SW SWITCH 
312 024770 001041 BNE 50% 38R IF SWITCH IS ON 
313 024772 112737 000200 026301 MOVB 0200,722851 ;WRITE MISCELL NEOUS CONT/READ STATUS 
314 025000 112737 000010 026300 MOvB #10. 722850 sFUNCTION SELECTION BIT (TURN ON EXTFEA Mw SWITCH) 
315 025006 012704 026270 MOV @T22PK2 RA ;WRITE SUBSYS MEM PACKET 
316 025012 010465 000000 MOV R4, TSDBCRS > sISSUE COMMAND 
317 025016 004737 016426 JSR PC. CHKTSSR ;WAIT FOR SSR 
318 025022 103407 Bcs 308 3BR, IF NO ERROR 
319 025024 010001 MOV RO,R1 sERROR, SAVE TSSR 
320 025026 005237 002212 INC FATFLG sBUMP COUNT 
324 025032 ERRHRD ERRNO, T22SSR,PKTSSR ;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
025032 104456 TRAP  CSERHRD 
025034 000314 .WORD 204 
025036 026320 “WORD T22SSR 
025040 012136 "WORD PKTSSR 
325 025042 308: CxLOOP ;LOOP IF SELECTED 
025042 104606 TRAP =—s-_-« C$CLP1 
326 025044 012704 026160 Mov @T22PACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 
328 J SSSSHSSSSSSSSHSSHSSHSSSHESSSSSSSHESSSSSHSSHSSESSSSSSSSHHEHSSSHEEEEEEE 
329 3 
330 ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
e 
332 J SSSSSSSSSSSSSSSHSSSSSESHSSSSSESSSSESSESEHHESSSSESSHSESSEHESESESEESEEEES 
333 
334 025050 004737 010752 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
335 025054 103407 acs 50% :8R, IF COMMAND ISSUED OK 
336 025056 005237 002212 INC FATFLG :QUMP COUNT 
340 025062 010001 MOV RO,R1 sSAVE CONTENTS OF T 


: SSR 
341 025064 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 


TSV? 
TEST 2: 


- HARDWARE TESTS 


MACRO M1115 


OFF-LINE AND REJECT REWIND 


002212 


177777 


002212 
017272 


60%: 


000017 


999%: 


3¢ 


14 JUN 84 


SEQ 9197 


14:17 
TRAP CSERHRD 
-WORD 205 
-WORD WRTMSG 
-WORD SF IMSG 
sSCOPE LOOP 
TRAP C8CLP 1 
TSSRCRS),R1 sGET TSSR CONTENTS 
OOFL ,R sCHECK FOR THE OFFLINE BIT SET 
60% sBR, IF OFFLINE (GOOD) 
FATFLG sBUMP COUNT 
ERRNO, T220F L , SF IMSG OFF LINE SHOULD HAVE a SET bn 
s€ 
TYORO 206 
«WORD = T220FL 
«WORD SFIMSG 
sLOOP IF SELECTED 
TRAP CsCLP1 
@T22R0 ,R3 sPOINTER FOR COMMANDS 
(R3), T22PK2 sTAPE MOTION COMMAND IN PLACE 
@T22PK2 ,R4 sR4 = POINTER TO PACKET 
R4, TSDOBCRS) s ISSUE COMMAND 
PC ,WAITF sWAIT FOR SSR TO SET 
TSSRC(RS),.R sGET TSSR CONTENTS 
eSSR!SC!OFL16IT1!81T2, R2;SET UP ~~ 
1,R2 s ARE Y EQUAL 
808 BR, IF OK ESP. FUNCTION REJECT 
FATFLG sBUMP COUNT 
ERRNO, T22TM, EXPREC STSSR INCORRECT AFTER ~_ —e CMD 
CsERHRD 
TORO 207 
«WORD T22TM 
-WORD . EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 
(R3)+ sPOINT TQ NEXT COMMAND 
@177777,(R3) sEND OF THE COMMANDS YET 
90% 3sBR, IF DONE 
65% sMORE COMMAND(S) TO GO 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10040: 
TRAP CsESUB 
FATFLG,@15. sIS ERROR COUNT AT 25 
999% s6R, IF LESS THAN 25 
PC ,CKDROP ;TRY TO DROP THE UNIT 


é 
sTEST 2, SUBTEST 2 


; 

sVERIFIES THAT A REWIND COMMAND, WITH THE CLEAR VOLUME 
sCHECK (CVC) BIT CLEAR, IS REJECTED IF THE VOLUME CHECK 
s(VCK) FLAG IS SET. 





Eo 
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TEST 2: OFF-LINE AND REJECT REWIND 
388 025234 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>>> 
025234 T2.2: 
025234 104402 TRAP C$6Su8 
389 025236 004737 027132 JSR PC, T22REST sSET COMMAND PACKET 
390 025242 004737 027224 JSR PC, T22QRT2]) sSET UP OTHER COMMAND PACKET 
391 
392 J SSSHSSNSSAHSASSSSHSHSSHSHSSHSSSHEASSHSEHESSESESSESESHESEESEHESESEESEEEEESE 
393 3 
2948 sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR j 
395 3 
aH J SSAASSSHSSSHSSSSHSSHSSHSSSHAESEHSESESESSESSSEASHHOESEHSESHESHESEESEEEESSE 
397 
398 025246 004737 016064 JSR PC, SOF INIT 100 Deets Soe ON CONTROLLER 
399 025252 103407 BCS 20% ;8R IF INIT WAS OK 
400 025254 005237 002212 INC FATFLG 3; BUMP COUNT 
404 025260 010001 MOV RO.R1 sCONTENTS OF TSSR REGISTER 
405 625262 ERRDF ERRNO, SFIERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
025262 104455 TRAP CSERDF 
025264 000320 . WORD 208 
025266 003650 . WORD SFIERR | 
025270 012124 .WORD  SFIMSG 
406 025272 203: | 
me 025272 012704 026160 MOV @T22PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
409 sPRRAOASEEHERESERESESEESEESESEREDESOORESERESEEESERESEEEEEESEOEEESS 
410 H 
aus ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
3 
413 {POROOAESEESREERERERSSEEDESEESEDESEDESEEREEESEREEEERESEESESERESSEES 
414 
415 025276 004737 010752 JSR PC, WRTCHR sISSUE WRITE CHARACTERISTICS ‘ 
416 025302 103407 BCS 23% BR, IF COMMAND ISSUED OK 
417 025304 005237 002212 INC FATFLG :BUMP COUNT 
421 025310 010001 MOV RO.R1 ;SAVE CONTENTS OF TSSR 
422 025312 ERRHRD ERRNO, WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
025312 104456 CSERHRO 
025314 000321 TMORO 209 
025316 005054 .WORD WRTMSG 
025320 012124 .WORD SFIMSG 
423 025322 005737 002216 233: TST EXTFEA ;CHECK FOR EXTENDED FEATURES SW SWITCH 
ae 025326 001041 BNE 50% 368R IF SWITCH IS ON 
426 025330 112737 000200 026301 MOVB #200, T2286S1 sWRITE MISCELLANEOUS CONT/READ STATUS 
427 025336 112737 000010 026300 MOVB #10, T228S0 sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
428 025344 012704 026270 MOV @T22PK2 ,R4 sWRITE SUBSYS MEM PACKET 
429 025350 010465 000000 MOV R4, TSOBC(RS) s ISSUE C 
430 025354 004737 016426 JSR PC ,CHKTSSR ;WAIT FOR SSR 
431 025360 103407 BCS 30$ 38R, IF NO ERROR 
432 025362 010001 MOV caterk sERROR, SAVE TSSR 
433 025364 005237 002212 INC FATF ;BUMP COUNT 
437 025370 ERRHRD ERRNO. T22SSR,PKTSSR ;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
025370 104456 TRAP CSERHRD 
025372 000322 . WORD 210 
025374 026320 . WORD T22SSR 
025376 012136 WORD PKTSSR 
438 025400 30$: CKLOOP ;LOOP IF SELECTED 
025400 104406 TRAP CsCLP1 


Fg 
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TEST 2: OFF-LINE AND REJECT REWIND 

439 025402 012704 626160 MOV @T22PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

440 

441 MITiTiITitiiiiiiiiiiiiiii ii iitiiitiiiiiitiiiiiiiiiiiititi ttt iii iit 

442 ; 

443 sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

44a H 

44S Wriiiritiiiiiriiitiiiiiiiitiitiiiititiitiiitiiiitiittitit iti titi tt 

446 

447 025406 004737 010752 JSR PC ,WRTCHR —_ WRITE CHARACTERISTICS 

448 025412 103407 cs 50$ sBR, IF COMMAND ISSUED OK 

449 025414 005237 002212 INC FATFLG s;BUMP COUNT 

453 025420 010001 MOV RO,R1 ) SAVE CONTENTS OF TSSR 

454 025422 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
025422 104456 TRAP CSERMRD 

000323 -WORD 211 

025426 «WORD WRTMSG 
025430 012124 «WORD SFIMSG 

455 025432 50$: CKLOOP sSCOPE LOOP 
025432 TRAP CSCLP1 

456 025434 016501 000002 MOV TSSR(RS),R1 ;GET TSSR CONTENTS 

457 025440 032701 000100 BIT OOFL ,R1 sCHECK FOR THE OFFLINE BIT SET 

458 025444 001006 BNE 60% sBR, IF OFFLINE (GOOD) 

459 025446 005237 002212 INC FATFLG sBUMP COUNT 

463 025452 ERRDF ERRNO, T220FL,SFIMSG SOFF LINE SHOULD HAVE “7 SET (BAD) 
025452 104455 CSEROF 
025454 000324 ryoro 212 
025456 026515 «WORD T220FL 
025460 012124 «WORD SFIMSG 

464 025462 60$: CKLOOP ;LOOP IF SELECTED 
025462 1 TRAP CSCLP1 

465 025464 012737 102210 026270 65%: MOV #102210, T22PK2 sPOSITION COMMAND (REWIND MODE ) 

466 025472 012704 026270 MOV @T22PK2.R4 3R4 = POINTER TO PACKET 

467 025476 010465 000000 MOV R4, TSOBCRS > ; ISSUE COMMAND 

468 025502 004737 016340 JSR PC .WAITF sWAIT FOR SSR TO SET 

469 025506 016501 000002 MOV TSSR(RS),R sGET TSSR CONTENTS 

470 025512 012702 100306 MOV eSRiSC!OFL !BIT1 !B1T2, R2;SET UP EXPECTED 

471 025516 020102 CMP R1,R2 sARE THEY EQUAL 

472 025520 001406 BEQ 80% 3;BR, IF OK ESP. FUNCTION REJECT 

473 025522 005237 002212 INC FATFLG sBUMP COUNT 

477 025526 ERRHRD ERRNO, T22RWJ,EXPREC ;TSSR INCORRECT AFTER _— MOTION CMD 
025) 104456 TRAP CSERHRD 
025530 000325 -WORD 213 
025532 -WORD T22RWJ 
025534 015564 -WORD EXPREC 

478 025536 803: CKLOOP ;LOOP IF SELECTED 
0255. 104406 TRAP CsCLP1 

479 025540 ENOSUB ;>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
025540 L10041: 
025540 3 TRAP CsESUB 

480 025542 023727 002212 000017 CMP FATFLG,@15. 3IS ERROR COUNT AT 25 

481 025550 103402 BLO 999% :;BR, IF LESS THAN 25 
0255 004737 017272 JSP. PC ,CKDROP s;TRY TO DROP THE UNIT 

483 025556 999%: 

484 

485 i¢ 

486 ‘ 

487 sTEST 2, SUBTEST 3 
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TEST 2: OFF-LINE AND REJECT REWIND 
488 : 
489 ;VERIFIES THAT A REWIND COMMAND WITH CvC#i CLEARS vCK 
490 ;AND RETURNS PROPER STATUS IN THE MESSAGE BUFFER. 
491 : 
492 ; 
493 ‘- 
494 025556 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>»>>>>>> 
025556 T2.3: 
025556 104402 TRAP CsBSUB 
495 025560 004737 027132 JSR PC, T22REST ;SET COMMAND PACKET 
496 025564 004737 027224 JSR PC, T22RT2 ;SET UP OTHER COMMAND PACKET 
497 
498 FPOMASESATEHAHEHAEHESEHEUSEOEEEOEEEHHESEEHEHEAHRESEASEEEEHRESEEEEOSEES 
499 ; 
a+ ;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
1 : 
502 FPRHASAAAAAAESSAHSSSEAAAARASEEEHEHEAESESEHESEHESEESEHEEESESEEEEEEEEE 
503 
504 025570 004737 016064 JSR PC ,SOF INIT 300 INITIALIZE ON CONTROLLER 
S505 025574 103407 Bcs 20$ ;BR IF INIT WAS OK 
506 025576 005237 002212 INC FATFLG sBUPP C T 
510 025602 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
511 025604 ERROF ERRNO , SF IERR , SF IMSG sFATAL ERROR TSSR WAS NOT OK 
025604 104455 TRAP CSEROF 
025606 000326 -WORD 214 
025610 003650 -WORD SFIERR 
025612 012124 . WORD SF IMSG 
512 025614 20%: 
cs 025614 012704 026160 MOV OT22PACKET ,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 
515 FPOHASHAHSESEASSESAEESEESESSESFEOSHEEESSEEEHESOEHEESESEORESEESEESEES 
516 ’ 
i. sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
. 
519 F SSSESSHSSSSSSSSESSHESSSHSSSSESSHASSESESSEESESSESHSHSHESHSEHHHEEESEEEHES 
521 025620 004737 010752 JSR PC, WRICHR sISSUE WRITE CHARACTERISTICS 
S22 025624 103407 6cS 23% ;68R, IF COMMAND ISSUED OK 
523 025626 005237 002212 INC FATFLG sBUMP COUNT 
527 025632 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
528 025634 lal ERRHRD ERRNO,WRTMSG,SFIMSG :WRITE CHARACTERISTISC FAILED 
025634 104456 ; TRAP CSERHRD 
025636 000327 °. -WORD 215 
025640 ; .WORD WRTMSG 
025642 012124 . WORD SF IMSG 
005737 002216 23s: TST EXTFEA sCHECK FOR EXTENDED FEATURES SW SWITCH 
= 025650 001041 BNE 50% ;8R IF SWITCH IS ON 
532 025652 112737 000200 026301 MOVB 9200, T228S1 sWRITE MISCELLANEOUS CONT/READ STATUS 
533 025660 112737 000010 026300 MOVB #10, T22BS0 sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
534 025666 012704 026270 MOV @T22PK2 ,R4 sWRITE SUBSYS MEM PACKET 
535 025672 010465 000000 MOV R4, TSOBCRS) s ISSUE COMMAND 
536 025676 004737 016426 JSR PC ,CHKTSSR ;WAIT FOR SSR 
537 025702 103407 BCS 30% ;6R, IF NO ERROR 
538 025704 010001 MOV RO,R1 sERROR, SAVE TSSR 
539 025706 005237 002212 Inc T 


7 FATFLG BUMP COUN 
543 025712 ERRHRD ERRNO, T22SSR,PKTSSR sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 


un a en 


TSv?7 


- HARDWARE TESTS 1 


MACRO M1113 


TEST 2: OFF-LINE AND REJECT REWIND 


025712 
025714 
025716 
025720 
544 025722 
025722 
545 025724 


004737 
103407 
005237 
010001 


104456 
000331 
005054 


012124 


026515 


026160 


010752 
002212 


000002 
000100 


002212 


142010 
026270 


026202 
000006 


000020 


30$: 


14 - JUN-84 


CK OOP 
MOV 


H9 


14:17 


@T22PACKET ,R4 


F PSESHHAAASHSSASSEHHSSESARSESEHEASSHEEHHESEEEASSEEEEEEHEEEEESEEEEEOEES 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


; 
J SHSSHSSSSEKSSHSSSEHSESHEASSHHSASESSSSEHEEEEHEEEEEEEHSEEEKEHEERE SES EEEE 


60$: 
026270 65%: 


PC ,WRTICHR 
50$ 
FATFLG 


RO,R1 
ERRNO, WRTMSG , SF IMSG 


TSSRCRS),R1 
OOFL ,.R1 


60$ 
FATFLG 


ERRNO, T220FL , SF IMSG 


#142010, Lait 


PC, 
TSSR(RS).R 


SEQ 0111 
TRAP CSERHRD 
«WORD 216 
-WORD T22SSR 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
sSUBROUTINE NEEDS PACKET ADDRESS 
s ISSUE WRITE CHARACTERISTICS 
s6R, IF COMMAND ISSUED OK 
sBUMP COUNT 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRO 
. WORD 17 
-WORD WRTMSG 
«WORD SFIMSG 
SCOPE LOOP 
TRAP CsCLP1 


s;GET TSSR CONTENTS 

sCHECK FOR THE OFFLINE BIT SET 
3BR, IF OFFLINE (GOOD) 

sBUMP COUNT 


5 OFF LINE SHOULD HAVE a SET (BAD) 
CSEROF 


"WORD 218 
-WORD  T220FL 
-WORD SFIMSG 
sLOOP IF SELECTED 
CsCLP1 


sPOSITION COMMAND (REWIND MODE ) CvC=1 
3R4 = POINTER TO PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
TSSR CONTENTS 


sGET 
assitOrLiscrerraserT2, \R2;SET A gt A 


80% 
FATFLG 


ERRNO, T22RWJ, EXPREC 


@T22BFR,R3 
~ He oR1 


1,R2 
OBIT4,R2 
R2 





; Y EQUAL 
sBR, Ir OK ESP. FUNCTION REJECT 


sBUMP COUNT 

STSSR INCORRECT AFTER TAPE MOTION CMD 
TRAP CsERHROD 
-WORD 219 
-WORD T22RWJ 
.WORD EXPREC 


sLOOP IF SELECTED 
TRAP CSsCLPi 


sPOINTER TO MESSAGE BUFFER 

sPICK UP XSTO FROM MESSAGE BUFFER 
sSET UP EXPECTED 

sVCK SHOULD BE CLEAR 

sARE THEY EQUAL 


TSV7 - HARDWARE TESTS 1-8 


TEST 2: OFF-LINE AND REJECT REWIND 


590 
S91 
595 


026102 


001406 
005237 


104456 
000334 
026737 
015564 


104403 
023727 
103402 
004737 


004737 
103002 
000137 


104432 
001116 


002212 


002212 000017 
017272 
016546 
024642 


MACRO M1115 


14 - JUN - 84 


BEQ 
INC 
ERRHRD 


ENOSUB 


CMP 
BLO 
JSR 


JSR 
BCC 


JMP 
163%: EXIT 


999%: 


-—-—« 
~~ 


14:17 


90$ 
FATFLG 
ERRNO, T22VCK ,EXPREC 


FATFLG,@15. 
999% 

PC ,CKDROP 
PC, TSTLOOP 
163% 
T22L00P 
TST 


;LOCAL STORAGE FOR THIS TEST 


; 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 


.BLK 
T22PACKET: 

. WORD 

. WORD 

. WORD 

. WORD 
T22DATA: 

. WORD 

. WORD 

. WORD 

. WORD 

. WORD 
T22BFR: .BLKW 
; 

.BLKB 
T22PK2: 

. WORD 

. WORD 

. WORD 

. WORD 

EVEN 
T226F 2: 
T22BS0: .BYTE 
T228S1: .BYTE 
T22S2: .WORD 
T2283: .WORD 
3 

EVEN 


10-<.-TSV2E7> 


100204 
T22DATA 
0 


10-<.-TSV2E7> 


100206 
T226F 2 
0 
6. 


ooo°o 


SEQ Ol1l2 


;BR, IF OK (GOOD) 
sBUMP COUNT 
;VCK WASN'T CLEAR (BAD) 


-WORD 220 
-WORD T2evCK 
-WORD  EXPREC 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10042: 
TRAP CsESUB 
sIS ERROR COUNT AT 25 
3;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


300 WE NEED TO ITERATE TEST 

3B8R, IF NO LOOP REQUIRED 

sEXECUTE AGAIN 

sALL DONE THIS TEST 
TRAP CSExIT 
«WORD 1L10037-. 


sCOMMAND PACKET FOR TEST 


sWRITE CHARACTERISTICS COMMAND, WITH IE, ACK 


sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
ADDRESS OF MESSAGE BUFFER 


';LENGTH OF MESSAGE BUFFER 


sSELECT DRIVE 7 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, IE AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


;BSELO AREA 
;B8SEL1 AREA 
;SEL 2 AREA 
;DATA AREA 


TSV7 - HARDWARE TESTS 
TEST 2: OFF-LINE AND REJECT REWIND 


027222 


646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
676 
679 
680 
681 
683 
684 
685 
687 
688 
689 
690 
691 
692 
693 
694 027224 
695 
696 
697 
698 
699 
700 
1 


70 252 
702 027254 


012701 
012721 
012721 
005021 
012721 
012721 
005021. 


005021 
012701 


1-8 


000007 
000020 
177777 
000000 


JI 
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;TAPE MOTION PACKET COMMAND VALUES 
-WORD 100201 


T22RD: 

T22WRT: .WORD 100205 

T22P0S: .WORD 100210 

T22FOR: .WORD 100211 
-WORD 177777 


3;¢ 
sLOCAL TEXT MESSAGES FOR TEST 
.= 


MOV #100206 ,(R1)+ 
MOV lt atte 


+ 
MOV 96. ,(R1)+ 
CLR (R1)>+ 
MOV eT2caF2,R1 





sREAD TAPE FORWARD 
sWRITE TAPE FORWARD 
sPOSITION TAPE 
sFORMAT TAPE 

sEND OF DATA 


‘WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accepted’ 
‘'TSSR Init. Failed After WRITE MISCELLANEOUS CONRTOL/READ STATUS’ 


Motion Command To Off-Line Device’ 


WIND With VCK Set’ 
Buffer’ 
AUSE ERRORSsases' 


sSAVE THE REGISTERS 

s;START OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, IE 
sADORESS OF CHARAISTICS DATA BLOCK 
sEXTENDED ADORESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


s;LENGTH OF MESSAGE BUFFER 


sSELECT DRIVE SEVEN 
sNUMBER OF LOCATIONS TO Fae CLEARED 
sALL ny TO MESSAGE BUFFE 


s;BUMP R2 DOWN 
11S R2 AT ZERO YET 
sKEEP GOING UNTIL DONE 


_, THE REGISTERS 

;START OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, IE 
sADORESS OF DATA BLOCK 

sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


111 T22SSR: .ASCIZ 
123 T22AM3: .ASCIZ 
151 T220FL: .ASCIZ ‘Drive 7 Select Failed To Set "OFL” In TSSR’ 
123 T22TM: ASCIZ ‘TSSR Incorrect After T 
123 T22RWJ: .ASCIZ ‘TSSR Not Correct After 
103 T22evCK: .ASCIZ ‘CVC Set, Didn''t Reset VCK In Mess 
052 T22WLK: .ASCIZ ‘eeeesTAPE IS WRITE-LOCKED AND WILL 
146 atermmead -_ -ASCIZ ‘Off-Line And Reject Rewind’ 
;ROUTINE TO RESTORE COMMAND °ACKET TO START-UP (DEFAULT) VALUES 
;WRITE SUBSYSTEM MEMORY COMMAND 
T22REST: 
SAVREG 
MOV @T22PACKET ,R1 
MOV #100204 ,(R1)> 
MOV @T22DATA,(R1)>+ 
CLR (R1)+ 
MOV #10. ,(R1)>+ 
MOV OT22BFR, (R1)+ 
CLR (R1)- 
MOV #20. ~C(R1)-+ 
CLR (R1i)- 
MOV 67,(R1) 
MOV $20 
026202 643: Ho ct ae caarathnatie 
CMP R2,00 
BNE 64% 
RTS PC ;RETURN 
T22RT2: 
SAVREG 
Vv @T22PK2,R1 


SEQ 0113 


TSV7 - HARDWARE TESTS 1-8 
2: OFF-LINE AND REJECT REWIND 


TEST 


703 027260 

704 027262 

705 027264 

706 027 

707 027270 
027270 
027270 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 027272 
027272 

724 027272 

725 027300 

726 027304 

731 027310 

732 027314 

733 027320 

734 027324 

735 027330 

736 027334 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 027342 

749 027342 
027342 
027342 

750 027344 

751 027350 

752 

753 

754 

755 

756 

757 

758 


Kg 
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005021 CLR (R1)> 
005011 CLR (R1) 
005011 CLR (R1) ;LAST LOC TO BE CLEARED 
000207 RTS PC ;RETURN 
ENDTST 
L10037: 
104401 TRAP CseETsT 
SBTTL TEST 3: BASIC WRITE DATA 

THIS TEST VERIFIES THAT THE WRITE DATA (NEXT) COMMAND OPERATES 

PROPERLY, UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY 

;WRITTEN ONTO THE TAPE CORRECTLY. CHECKING IN THIS TEST IS 

;LIMITED TO VERIFYING THAT THE COMMAND TERMINATED CORRECTLY WITH 

THE CORRECT REGISTER, MESSAGE BUFFER AND RAM CONTENTS. 

: 

"THE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS 

a BGNTST si 
012737 006356 002170 MOV #EPRT1,EPRTSW SET UP PRIMARY ERROR MESSAGE 
005037 003124 CLR —s«K TENABLE TURN OFF KT11 
004737 017364 JSR PC. KTOFF STURN OFF KT11 
004737 016274 SR —s- PC. DSBINT {DISABLE INTERRUPTS 


012737 000005 002206 MOV #5 ,LOOPCNT 


104402 
004737 034102 
004737 034174 


sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
PC ,MEMCK sCHECK FOR MEMORY 
LR NXMFLG sSET FLAG 
sPERFORM 5S ITERATIONS 


3¢ 
G 

sTEST 3, SUBTEST 1 

;VERIFIES THAT A WRITE COMMAND (ANY VALID MODE CODE) 
sWITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS 
sREJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL 


sVALID MODE CODES ARE CHECKED (WRITE DATA, WRITE 
sRETRY). 


* BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>> 
TS. 


TRAP CsBSU8 
JSR PC, T23REST ;SET COMMAND PACKET 
JSR PC, T23RT2 ;SET UP OTHER COMMAND PACKET 
TTT Tit iii tit ti rettti titi tt Mitr 


; 
s;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


o 
SPHERES EEESEESESEEEASCEESAEEEHERESSHEEEAEEEEEEEREHREEEHREEARESSEEEEDS 


SEQ 0114 


>> 





TSV7 - HARDWARE TESTS 1-6 
WRITE DATA 


TEST 


3: 


BASIC 


012124 


012737 
012704 


001044 
112737 


004737 
103407 


016064 
002212 


000007 
032560 


010752 
002212 


000007 
032560 


010752 


Lg 


MACRO M1113 14-JUN-84 14:17 SEQ@ 0115 
JSR PC, SOF INIT s00 INITIALIZE ON CONTROLLER 
BCS 20% 3;BR IF INIT WAS OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
-WORD 301 
-WORD SFIERR 
-WORD SFIMSG 


032600 


032723 
032722 


032600 


MOV #7, T230SW 
MOV @T23PACKET ,R4 


sSET DRIVE NUMBER IN PACKET 
sSUBROUTINE NEEDS PACKET ADDRESS 


{ PORARSHAERESEEEESERERESEREEEEESEEEESEOEEREDEEEEEEEERESEEEEEEEESOES 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


° 
FASSERSESESSESSHESSSSHEASESESEHSESSESEHEHHSS SESSSSESOKSEESESESESESSEEEEESESESESD 


JSR PC ,WRTICHR s; ISSUE WRITE CHARACTERISTICS 
23% sBR, IF COMMAND ISSUED OK 
INC FATFLG sBUMP COUNT 


MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SF IMSG ;WRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 302 
«WORD WRTMSG 
-WORD SFIMSG 

23%: TST EXTFEA sCHECK FOR EXTENDED FEATURES SW SWITCH 
BNE 50¢ sB8R IF SWITCH IS ON 


sWRITE MISCELLANEOUS CONT/READ STATUS 
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
sWRITE SUBSYS MEM PACKET 

SUE COMMAND 


HOVB #200, T238S1 


MOV R4, TSOBCRS) :1IS 

JSR PC, CHKTSSR ;WAIT FOR SSR 

BCS 30% s8R, IF NO ERROR 

MOV RO,R1 sERROR, SAVE TSSR 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T23SSR,PKTSSR ;TSSR NOT CORRECT AFTER WRT. se 7 ne 
-WORD 303 
-WORD T23SSR 
-WORD PKTSSR 


30%: CKLOOP 


MOV #7, T230SW 
MOV @T23PACKET ,R4 


sLOOP IF SELECTED 
TRAP CsCLP1l 


SET DRIVE NUMBER IN PACKET 
;SUBROUTINE NEEDS PACKET ADDRESS 


F SSSESHSEASEEHHESHEAEEESSESSESESEESSHSESESESESEESESSSESESESHEESEEAEEESESD 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

5 

J PEHSSSASSSEHESHSESEERSEESEKSESHEESESEHSESESESHESHAESSSSHSESSEHESSESASESSSEEEEES 


JSR PC,WRTCHR 
BCS 50% 


sISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 





TSv? 
TEST 


“3: 
812 


- HARDWARE TESTS 1 


BASIC 
027536 


WRITE DATA 


005237 
010001 


104456 
000460 


005054 
012124 


00046 
033406 


002212 


000002 
000100 


002212 


177777 


002212 
017272 


rem sie 
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INC FATFLG sBUMP COUNT 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SF IMSG ;WRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 304 
-WORD WRTMSG 
-WORD SFIMSG 

50$: CKLOOP ;SCOPE LOOP 


000017 


TRAP CSCLP1 


MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
BIT @OFL ,R1 ;CHECK FOR THE OFFLINE BIT SET 
BNE 60$ ;BR, IF OFFLINE (GOOD) 
INC FATFLG sBUMP COUNT 
ERROF ERRNO, T230FL,SFIMSG ;OFF LINE SHOULD HAVE BEEN SET (BAD) 
TRAP CSEROF 
«WORD 305 
. WORD T230FL 
WORD SF IMSG 
60$: CKLOOP ;LOOP IF SELECTED 
TRAP C$CLP1 
MOV @T23WD R53 sPOINTER FOR COMMANDS 
655: MOV (R3), T23PK2 ;TAPE MOTION COMMAND IN PLACE 
MOV @T23PK2 ,R4 3R4 = POINTER TO PACKET 
MOV R4, TSOBCRS ) ;ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R ;GET TSSR CONTENTS 
MOV eSSR!SCIOFL!81T1!BIT2, R2;SET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 80$ TBR, IF OK ESP. FUNCTION REJECT 
INC FATFLG 3BUMP COUNT 
ERRHRD ERRNO, T23TM,EXPREC iTSSR INCORRECT AFTER TAPE Palas - CMD 
TRAP CSERHRD 
-WORD 306 
“WORD T23TM 
-WORD EXPREC 
80$: CKLOOP ;LOOP IF SELECTED 
TRAP CsCLPl 
TST CR3)+ sPOINT TO NEXT COMMAND 
CMP 0177777,(R3) ;END OF THE COMMANDS YET 
BEQ 90% ;BR, IF DONE 
an BR 65% ;MORE COMMAND(S) TO GO 
ENDSUB 3>>>>>>>>>>22> END SUBTEST >>>>>>>>>>>> 
L10044: 
TRAP CsESUB 
CMP FATFLG,@15. ;IS ERROR COUNT AT 25 
BLO 999% ;BR, IF LESS THAN 25 
nee JSR PC ,CKDROP ;TRY TO DROP THE UNIT 


;TES] 3, SUBTEST 2 
;VERIFIES THAT WRITE DATA COMMANDS WITH CvC*1 AND THE 


sSWAP BYTES (SWB) BIT CLEAR OPERATES PROPERLY. THE 
;BYTE COUNT (RECORD SIZE) VARIES FROM 20 THROUGH 64K 





TSv? 


TEST 


TESTS 


- HARDWARE 
3: BASIC WRITE DATA 


012124 


013737 
012704 


1-8 


016064 
002212 


002172 
032560 


010752 
002212 


032600 
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;IN VARYING INCREMENTS (DEPENDING UPON WHETHER OR NOT 
;THE DIAGNOSTIC IS RUNNING IN THE LONG VERIFICATION 
;MODE). THE TAPE IS NOT REWOUND BETWEEN SUCCESSIVE 
;RECORDS BUT IS REWOUND AFTER THE FINAL RECORD IS 
;WRITTEN. AN INCREMENTING COUNT PATTERN IS SUPPLIED 
;IN THE DATA BUFFER. AFTER EACH BLOCK IS WRITTEN, THE 
;TSSR AND TSBA REGISTERS, THE MESSAGE BUFFER, AND THE 
;RAM CONTENTS ARE CHECKED. (THE RAM CONTENTS ARE CHECKED 
sUSING THE WRITE SUBSYSTEM MEMORY COMMAND. 
f BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST ->>>>>>>>>>> 
73.2: 
TRAP CSBSUB 
MOV FRESIZ,R1 ;GET SIZE OF AVAILIABLE MEMORY 
cLc ;CLEAR THE CARRY BIT 
ROL R1 ;MAKE INTO BYTES 
MOV R1,T23RSZ :STORE IN TEST FOR USE LATER 
JSR ¢. T23REST ;SET COMMAND PACKET 
JSR PC, T23RT3 JRESTORE PACKET 
JSR PC, T23RT2 ;SET UP OTHER COMMAND PACKET 
F SSSSSSSESSSESSHSSSSSSSSSESSHESSSHSHESSESESESSESSESSEHSSSESSSSEHESSESEEEESEEEESD 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
TUT TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT TTT TTT TT TTT TTTTT TTT TTT TTT TTT 
JSR PC, SOFINIT ;D0 INITIALIZE ON CONTROLLER 
BCS 208 ;BR IF INIT WAS OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 ;CONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP  CSEROF 
.WORD 307 
“WORD  SFIERR 
te “WORD SFIMSG 
‘MOV UNITN, T230SW ;LOAD UP SELECTED UNIT NUMBER 
MOV OT23PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 


F SSSSAESKASESSESESESESSESSEESSESSESEKSEEEESSESAEESSESESESSESEESESSESESESASESSEESEE 


; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


. 
FERRER AEEKEEAEEEAEKAREEEAEEEKESEEAREARAEREEAEEAKEARE EEE EEE AEE E REE 


JSR PC,.WRTCHR 
BCS 23% 

INC FATFLG 
MOV 


RO,R1 
ERRHRD ERRNO,WRTMSG, SFIMSG 


s ISSUE WRITE CHARACTERISTICS 
;B8R, IF COMMAND ISSUED OK 


;BUMP COUNT 

;SAVE CONTENTS OF TSSR 

;WRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 308 
.WORD WRTMSG 


TSV 
TEST 


3: BASIC 


7 - WARDWARE TESTS 1-8 


WRITE DATA 


012124 
104406 


004737 
012703 
013737 


012737 


007376 
034174 


MACRO M1115 


233: 


6B 1¢ 


14-JUN-84 14:17 


CKLOOP 


. WORD 
TRAP 


SF IMSG 
Csc.P 1 


sLOOP IF SELECTED 


; 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


032712 


653: 


JSR 
MOV 
MOV 


PC ,REWIND 
020. ,R3 
FREE , T23W8 


sCALL THE TAPE REWIND 
sSTARTING RECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


; 
sWRITE DATA,CVC*1,ACK COMMAND 


85%: 


000400 032724 
000000 032722 


#140005 , T25PK3 


@T23BFR,R2 


90 
FATFLG 
ERRNO , T23BA ,EXPREC 


R3, 07376 
5 


#0, T238S0 


sWRITE DATA, a ay 
sSETUP FOR RETR 
SHAKE IT A RETRY 
3SET UP R4 WITH PACKET ADORESS 
sSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET’ 
OMMAND 


ACK COMMAND 
Y COMMAND 


OK 
CIAL CONDITION 


sCHECK SPE 
sLOOP IF SELECTED 
TRAP CsCLPl 
sGET TSBA CONTENTS 
sSET UWP EXPECTED 
sSET TO END OF MESSAGE BUFFER 


sCHECK FOR EXTENDED FEATURES Sw SET 
36R, IF IT NOT SET 

sBLeP R2 FOR EXTRA DATA 

sARE THEY EQUAL 

sBR, IF —_ IS CORRECT 


SEQ 9118 


sBUMP 
:TSBA WAS NOT CORRECT of A WRITE DATA 
CSERHRD 


° TYORO 309 
-WORD T23BA 
-WORD EXPREC 
sLCOP IF SELECTED 
CsCLP1 


TRAP 
sONLY CHECK RAM wii ITS FUL 
IT WRAPS AROUND ETC. 
sMAKE SURE PACKET AND DATA ARE CLEAN 
ISTARTING RAM ADORESS 
sSTOP INTERNAL TSVOS DIAGNOSTICS 





TSv7 
TEST “3: BASIC 


0 
1017 030470 


- HARDWARE TESTS 1 
WRITE DATA 


112737 


MACRO M1113 


000000 032723 
032670 


000000 
016426 


002212 


032622 


002212 


032724 
032724 
000400 
032724 


001750 
032720 


177776 
030042 


92%: 


100$: 


1108: 


115%: 


C10 


14-JUN-84 14:17 


INC 
INC 
MOV 


SEERIERSE 


#0, 1238S1 
OT23PK2 ,R4 
R4, TSOBCRS) 
PC, CHKTSSR 


FATFLG 
ERRNO, T25WSS ,PKTSSR 


PC, T23RT2 


FATFLG 
ERRNO, T23WSS ,PKTSSR 


Ri 

R2 

T238FR+20,R1 

R3,R2 

R1,R2 

1108 

FATFLG 

ERRNO, T2SRNC ,EXPREC 


SEQ 9119 
sSIZE OF RAM READ 
sSET R4 WITH PACKET ADDRESS 
sISSUE WRITE SUB SYS MEM COMMAND 
sCHECK TSSR AND WAIT FOR SSR TO SET 
s6R, IF NO ERRORS IN TSSR 
1 SAVE HE ol 
;BUMP C 
sTSSR BAD Ten WRITE ~*~ at MEM 
CSERHRE 
MORO 310 
. WORD T23uSs 
.WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLPi1 
sMAKE SURE PACKET AND DATA ARE CLEAN 
S STARTING RAM ADORESS 
sREAD RAM COMMAND FOR WRITE SUB SYS #. 
sSIZE OF RAM READ 
sSET R4 WITH PACKET ADORESS 
sISSUE WRITE SUB SYS MEM COMMAND 
3;CHECK TSSR AND WAIT FOR SSR TO SET 
38R, IF NO ERRORS IN TSSR 
3SAVE TSSR 
sBUMP COUNT 
iTSSR BAD AFTER WRITE sae os MEM 
CSERHROD 
ORO 11 
-WORD T23wSS 
.WORD PKTSSR 
3L00P IF SELECTED 
TRAP CSCLPi 


sCLEAR REGISTER 
sCLEAR REGISTER 


sIS RAM DATA CORRECT 
sBR, IF OK (EQUAL ) 
BUMP T 


3 COUN 
sRNC*RAM NOT CORRECT 
TRAP CSERHROD 


-WORD 312 
«WORD T23RNC 
-WORD EXPREC 


sLOOP IF SELECTED 
TRAP CsCLPl 


sBUMP RAM ADDRESS 'O BE CHECKED 
sBUMP RAM ADORESS TO BE CHECKED 
sGET SIZE OF RECORD 

RECORD ADORESS 


CHECK 
sNEXT RECORD SIZE/DATA PATTERN 
sIS R3 OVER MAX RECORD SIZE 
sIF RECORD SIZE IS TOO BIG QuIT 
sEND OF SUBTEST MAX RECORD SIZE 
s6R, IF COMPLETED 
300 MORE RECORDS 


TSVv? 

TEST 
1018 030474 
1019 030474 


TEST 


104402 
004737 
004737 


SO 
012124 


- HARDWARE S$ 1-8 
‘3: BASIC WRITE DATA 


002212 
017272 


034102 
034174 


016064 
002212 


MACRO M1113 


000017 


1208: 


1308: 


999%: 


3¢ 


D1O 


14- JUN 84 14:17 


PC, T2SRT3 
PC, T23RT2 
#102010, T23PK2 


F 
ERRNO, T2SRWN,PKTSSR 


FATFLG,#15. 
999% 
PC ,CKDROP 


;TEST 3, SUBTEST 3 
; 
VERIFIES THAT WAITE DATA COMMANDS WITH CVC*1_ AND THE 


T SET OPERATES PROPERLY. 


SEQ 9120 
sRESTORE PACKET 
sCLEAN UP PACKET 
sREWIND (POSITION) COMMAND 
sLOAD R4 WITH PACKET ADDRESS 
sISSUE REW COMMAND 
sWAIT FOR SSR TO SET 
sBR, IF TSSR IS OK (GOOD) 
sSAVE TSSR CONTENTS 
sBUMP COUNT 
sTSSR IS INCORRECT AFTER REWIND 
TRAP CSERHRD 
-WORD 313 
-WORD T23RWN 
-WORD PKTSSR 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
110045: 
TRAP CsESuUB 


sIS ERROR COUNT AT 25 
sBR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


THE TEST 
é. 


SUBTEST 
; THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 


BGNSUB 


JSR 
JSR 


PC, T23REST 
PC, T23RT2 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
73.3: 


FS SSSSESSSSSSSSSSSSSSHSHSHSHSSSSHESSSSSSESSHSHSSSSHSSSSSHSSSESESSSESESESDE 


; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


; 
PPASEOHEHAHASEHLELSAMERSSHEHHSSHHRECASHSEHSESEHSAHHESVASCHESSESHAKHASHASESRHAEH 


PC, SOF INIT 

20% 

FATFLG 

RO,R1 

ERRNO , SF IERR , SF IMSG 


TRAP CsBSU8 

sSET COMMAND PA” <ET 

sSET UP OTHER COMMAND PACKET 

s00 INITIALIZE ON CONTROLLER 

s8R IF INIT WAS OK 

sBUMP COUNT 

sCONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 314 
-WORD SFIERR 
-WORD SFIMSG 


E10 


1SV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 0121 
TEST 3: BASIC WRITE DATA 
1069 030622 208: 
1070 030622 013737 002172 032600 MOV UNITN, T230SW ;SET UP UNIT NUMBER 
1071 030630 012704 032560 MOV @T23PACKET,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
7 
tis FPSSSASSSSSSHSASSHSASSHHHSSSSSHSSSHESSHSSSHESHEASSEHESEHSSSESEESEHEHESHEEESEEES 
1074 ; j 
1075 ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) | 
7 ; ; 
sory FSSSHAHESSSSSSSHSSSHHASHSSHSSESESSSSSHSSSSHESESHEESHEEHESHSESESSSESHSEESEEEHESEOEEE | 
1078 
1079 030634 004737 010752 JSR PC ,WRTCHR ;ISSUE WRITE CHARACTERISTICS 
1080 030640 103407 BCS 233 38R, IF COMMAND ISSUED OK 
1081 030642 005237 002212 INC FATFLG ;BUMP COUNT | 
1085 030646 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
1086 030650 ERRHRD ERRNO,WRTMSG, SFIMSG WRITE CHARACTERISTISC FAILED 
030650 104456 TRAP  CSERHRD 
030652 000473 .WORD (315 
030654 “WORD  WRTMSG 
030656 012124 “WORD  SFIMSG 
1087 030660 235: 
1088 030660 012703 000024 MOV 020. .R3 sSTARTING RECORD SIZE 
1089 030664 013737 003114 032712 65%: MOV FREE, T23W8 ;STARTING WRITE BUFFER ADORESS 
1091 F SSSSSSSSASSHSSSSSSSSHSSHSSHESHEAEESSASSEHSHSESSSSSSEHAESESESEEESHESSEEEEE | 
1092 Fy 
1093 ;WRITE DATA,CVC*1,ACK,SW8 COMMAND 
7 
1095 J SSSSESSSSSSSSSSSAASSSSESSSESSESSEESEHESHOSHAEAEASESSEHSSEHSSEEHHESEEEESE 
1096 
1097 030672 012737 150005 032710 MOV @150005, T23PK3 ;WRITE DATA. CvC* 1,ACK,SWB COMMAND 
1098 030700 012737 150005 032732 MOV #150005, T23WRT ;SETUP FOR RETRY COMMAND 
1099 030706 052737 004000 032732 BIS €4000, T23WRT ;MAKE IT A RETRY 
1100 030714 012704 032710 MOV OT23PK3,R4 ;SET UP R4& WITH PACKET ADDRESS 
1101 030720 010300 MOV 3,RO 3SET PATTERN IN CORRECT REGISTER 
1102 030722 004737 017512 JSR PC. FILLMEM sFILL MEMORY WITH RECORD SIZE 
1103 030726 010337 032716 MOV R3,123SZ 3SET UP RECORD SIZE IN PACKET 
1104 030 010465 MOV R4, TSOB(RS) sISSUE COMMAND 
1105 030736 004737 016340 JSR * WAITF ;WAIT FOR SSR TO SET 
1106 030742 016501 2 MOV TSSR(RS),R1 ;GET TSSR CONTENTS 
1107 030746 012702 000200 MOV ossR, ;SET UP EXPECTED 
1108 030752 020102 CMP R1,R2 ;ARE THEY EQUAL 
1109 030754 001402 BEQ 80% ;BR, IF OK 
1110 030756 004737 034262 JSR PC, T23CHK sCHECK SPECIAL CONDITION 
1111 030762 80$:  CKLOOP ;LOOP IF SELECTED 
030762 TRAP —- C$CLP1 
1112 030764 016501 MOV TSBACRS),R1 ;GET [SBA CONTENTS 
1113 030770 012702 032602 MOV OT23BFR,R2 ;SET UP EXPECTED 
1114 030774 062702 000016 ADD 016, R2 3SET TO ENO OF MESSAGE BUFFE 
1115 031000 005737 002216 TST EXTFEA :CHECK FOR EXTENDED CEATIRES. Sw SET 
1116 031004 001402 BEQ 85$ 38R, IF IT NOY SET 
1117 031006 062702 000002 ADD 62,R2 ;BUMP R2 FOR EXTRA DATA 
1118 031012 020102 85%: CMP R1,R2 ;ARE THEY EQUAL 
1119 031014 001406 BEQ $ BR, IF "SBR IS CORRECT 
120 031016 005237 002212 INC FATFLG ;BUMP 
1124 031022 ERRHRD ERRNO, T23BA,EXPREC iTSBA WAS Not CORRECT AFTER WRITE DATA 
031022 104456 TRAP _ CSERHROD 
031024 000474 316 





TSV? - HARDWARE TESTS 1- 
TEST 3: BASIC 


031026 
031030 
1125 031032 
031032 
1126 epee 


1170 031246 
1171 031250 


WRITE DATA 


033725 
015564 


012737 000400 032724 
032722 
112737 aeoe te 032723 


032622 


002212 


032724 
032724 


MACRO M1113 


92%: 


1108: 





F 10 


14-JUN-84 14:17 


R3,07376 
115 


PC, CHKTSSR 
92% 
RO,R1 


FATFLG 
ERRNO, T23WSS,PKTSSR 


PC, T23RT2 


FATFLG 
ERRNO, T23WSS,,PKTSSR 


G 
ERRNO, T23RNC ,EXPREC 


T23S2 
T23S2 


SEQ Ol122 
-WORD T23BA 
. WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 
sONLY CHECK RAM UNTIL ITS FULL 
sIT WRAPS AROUND ETC. 
sMAKE SURE PACKET AND DATA ARE CLEAN 
ISTARTING RAM ADDRESS 
sSTOP ip TSVOS DIAGNOSTICS 
iSIZE OF RAM READ 
;SET R4 WITH PACKET ADDRESS 
sISSUE WRITE SUB SYS MEM COMMAND 
;CHECK TSSR AND WAIT FOR SSR TO SET 
;BR, IF NO ERRORS IN TSSR 
sSAVE TSSR 
sBUMP COUNT 
sTSSR BAD AFTER WRITE SUB SYS MEM 
TRAP CSERHRD 
-WORD 317 
-WORD T23WSS 
.WORD PKTSSR 


sLOOP IF SELECTED 
TRAP C$CLP1 


sMAKE SURE PACKET AND DATA ARE CLEAN 

sSTARTING RAM ADDRESS 

sREAD RAM COMMAND FOR WRITE SUB SYS M. 
RAM READ 


sSET R4 WITH PACKET ADDRESS 

sISSUE WRITE SUB SYS MEM CMD (READ RAM) 
sCHECK TSSR AND WAIT FOR SSR TO SET 
sBR, IF NO ERRORS IN TSSR 


sSAVE TSSR 

3;BUMP COUNT 

;TSSR BAD AFTER WRITE SUB SYS MEM 
TRAP CSERHRD 
-WORD 318 
-WORD T23wWSS 
WORD PKTSSR 


sLOOP IF SELECTED 


sCLEAR REGISTERS 
sCLEAR REGISTERS 


TRAP CsCLPl 


31S RAM DATA CORRECT 
3BR, IF OK CEQUAL) 
sBUMP COUNT 
s;RNC2RAM NOT CORRECT 
TRAP CSERHRD 


-WORD 319 
-WORD T23RNC 
-WORD EXPREC 


sLOOP IF SELECTED 
s6UMP RAM ADDRESS 


TRAP CSCLP1 
TO BE CHECKED 


;BUMP RAM ADDRESS TO BE CHECKED 


TSV 
TES 


- « 
' 2 


HARDWARE TESTS 1-8 
: BASIC WRITE DATA 


031412 
031416 


104402 
004737 
004737 
004737 


000400 
032724 
001750 
032720 
177776 
030664 
034174 
102010 
032670 


000000 
016426 


002212 


002212 
017272 


MACRO M1113 


032670 


000017 


115$: 


130$: 


9995: 


3? 


14-JUN-84 14:17 


#1000. ,R3 
R3,T23RSZ 
120% 

R3, 065534. 
120% 

65% 


PC, T23RT2 
#102010, T23PK2 


ERRNO, T23RWN,PKTSSR 


FATFLG,@15. 
999% 
PC ,CKDROP 


; 
TEST 3, SUBTEST 4 


; 

sVERIFIES THAT A WRITE COMMAND WITH AN ILLEGAL MODE 
sFIELO OR AN ILLEGAL BUFFER ADDRESS IS REJECTED WITH 
; THE PROPER ERROR STATUS AND THAT TAPE DOES NOT MOVE 


BGNSUB 
JSR 


JSR 
JSR 


PC, T23REST 
PC, T23RTS 
PC, T23RT2 


SEQ 0123 


sGET SIZE OF RECORD 

sFIGURE OUT END RECORD ADDRESS 
sAT END OF RAM CHECK YET 

sBR, IF MORE TO CHECK 

sNEXT RECORD SIZE/DATA PATTERN 
sIS R3 OVER MAX RECORD SIZE 

sIF RECORD SIZE IS TOO BIG QuI' 
sEND OF SUBTEST MAX RECORD SIZE 
sBR, IF COMPLETED 

3:00 MORE RECORDS 


;CLEAN UP PACKET 

sREWIND (POSITION) COMMAND 

sLOAD R4 WITH PACKET ADDRESS 

s ISSUE REWIND COMMAND 

sWAIT FOR SSR TO SET 

sBR, IF TSSR IS OK (GOOD) 

sSAVE TSSR CONTENTS 

sBUMP COUNT 

;TSSR IS INCORRECT AFTER REWIND 
TRAP CSERHRD 
-WORD 320 

-WORD T23RWN 

-WORD PKTSSR 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10046: 
TRAP CsESUB 
:IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
:TRY TO DROP THE UNIT 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
73.4: 


TRAP C$BSUB 
;SET COMMAND PACKET 
sRESTORE PACKET 
;SET UP OTHER COMMAND PACKET 


F FSSESSSESESSSEESSSESESSHASSOESSSHSHAASSSEEEESESESESHESEHESEESHERESEEESESEE 


3 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


FPSASSSEEEEESEESSEEESEESEEESESESOESESESESHOERSEHESAEESESESESHEEASESHEEEEE 


- HARDWARE TESTS 1-8 
WRITE DATA 


TSv? 
TEST 3: 


1225 
1226 


BASIC 


031422 
031426 


012124 


013737 
012704 


005054 
012124 


016064 
002212 


002172 
032560 


010752 
002212 


H1O0 


MACRO M1113 14-JUN-84 14:17 SEQ 0124 
JSR PC, SOF INIT 300 INITIALIZE a CONTROLLER 
BCS 20s sBR IF INIT WAS OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 ;CONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 321 
-WORD SFIERR 
-WORD SFIMSG 


032600 


032710 
032712 
032712 
032716 


MOV UNITN, T230SW 
MOV @T23PACKET ,R4 


sSET DRIVE NUMBER IN PACKET 
sSUBROUTINE NEEDS PACKET ADDRESS 


jPROOOAAEERERESEERERRORESEESEEEERERERESEEEEEEESEESEEREORESEEEEEEEES 
; 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTICHR) 
WITITITITITITITITITITITITITIITTTT TTL i 
JSR PC,WRICHR s ISSUE WRITE CHARACTERISTICS 
6cs 23% BR, IF COMMAND ISSUED OK 
INC FATFLG BUMP COUNT 
SAVE CONTENTS 


MOV RO,R1 OF TSSR 
ERRHRD ERRNO,WRTIMSG, SF IMSG sWRITE CHARACTERISTISC “oy 


CSERHRD 
TWORD 322 
. WORD WRTMSG 
. WORD SF IMSG 
FPRRSSASESESASESEEAESEEESESEERSEKEEREHEESERESEEEESEHEEEEEEEEDEREEEE 
Q 
sWRITE DATA, ACK, ILLEGAL BITS 
H 
J SSSSHSSESSSSEHSESSSSSSSHASSHSESSHSHEEHEEEEHSEOSSSESSSSESESHEHSHHESSEEEEEES 
23%: MOV 104405 , T23PK3 sWRITE DATA, ACK, ILLEGAL BITS 
MOV “NEE, T23WB ;SEY UP WRITE BUFFER ADDRESS 
ADO #1, T2368 sMAKE ADDRESS O00 CILLEGAL ) 
MOV 0256. ,T23SZ sSET UP BUFFER SIZE 
MOV @T23PK3 ,R4 3R4 = POINTER TO PACKET 
MOV R4, TSOBCRS) s ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R sGET TSSR CONTENTS 
MOV OSSRiScsBIT1I61T2, Re iSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 80$ 3:8R, IF OK ESP. FUNCTION REJECT 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T23TM,PKTSSR :TSSR INCORRECT AFTER WRITE COMMAND 
TRAP CSERHRD 
. WORD 323 
. WORD T23TM 
.WORD PKTSSR 
80$: CKLWOP ;LOOP IF SELECTED 
TRAP CSCLP1 
ENOSUB $>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10047: 


TRAP CSESUB 


TSV7 - HARDWARE TESTS 1-8 


TEST 3: BASIC 


1276 031604 
1277 031612 
1278 031614 
1279 031620 
1280 


1314 031674 
1315 031702 


1322 

1323 031706 

1324 031712 

1325 031714 

1329 031720 

1330 031722 
031722 
031724 


WRITE DATA 


023727 
103402 
004737 


004737 
103407 
005237 
010001 


104455 
000504 


003650 
012124 


013737 
012704 


004737 
103407 
005237 
010001 


104456 
000505 


0U2212 000017 
017272 


003126 
032150 
034102 


034236 
034174 


016064 
002212 


002172 032600 
032560 


010752 
002212 


MACRO M1113 


14-JUN-84 14:17 


CMP FATFLG,4@15, 

BLO 999% 

JSR PC ,CKDROP 
9993: 


3° 


;TEST 3, SUBTEST 5S 


SEQ 9125 


IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


; 

;VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA 
s;BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH 
; THE PROPER ERROR STATUS WITHOUT MOVING TAPE 


BGNSUB 
TST NXMFLG 
BNE 10$ 
JMP 90% 
108: JSR PC, T23REST 


JSR PC, T23RTS 
JSR PC, T23RT2 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>»>>>>> 
T3.5: 


TRAP C$B8SUB 
300 WE HAVE IT? 
3;BR, IF ENOUGH 
;SKIP THIS TEST IF NOT 
;SET COMMAND PACKET 
sRESTORE PACKET 
;SET UP OTHER COMMAND PACKET 


{POOREOSEREEEEEESESERERESERERESEREEESEDEERESEREREDEDOREEEE ERED ESESS 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


. 
F SSSSSASSSSSASSSHHESSESSASSHESSESESHEAEHSEEEAESSEEESSEEEEESHEKESEEESEEDE 


JSR PC, SOF INIT 
20% 


BCS 

INC FATFLG 

MOV RO,R1 

ERROF ERRNO, SFIERR,SFIMSG 


MOV UNITN, T230SW 
MOV @T23PACKET ,R4 


:00 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 
sBUMP COUNT 
sCONTENTS OF TSSR REGISTER 
s;FATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 


-WORD 324 
-WORD SFIERR 
-WORD SFIMSG 


3;SET DRIVE NUMBER UP 
;SUBROUTINE NEEDS PACKET ADDRESS 


{ PSSSASHSSEHSHEASESESASSESSSESSESESSEEAESSSESEHSESESSESHHEHSEEHKEHEERSEHSEEES 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


o 
{SSS SSESEEAHESSESESESEEEESSSSESESEEESAESHHSEASSESSESSSASSSEESESESSEEEESEE 


JSR PC ,WRICHR 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG 





; ISSUE WRITE CHARACTERISTICS 

;8R, IF COMMAND ISSUED OK 

;BUMP COUNT 

;SAVE CONTENTS OF TSSR 

;sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
.WORD 325 


TSV7 - HARDWARE TESTS 1-8 


TEST 3S: 


031726 
031730 


005054 
012124 


104406 
012701 
012702 
004737 
103045 
010137 
005037 


012737 
013737 


BASIC WRITE DATA 


032714 
032714 


002212 


MACRO M1113 


032723 
032722 


032710 
032712 
032716 


14- JUN -84 


J10O 


14:17 


SEG 0126 


. WORD 
. WORD 


WRTMSG 
SF IMSG 


FRRARAAAAHASSHSASSEAASAEAASHEEESEEEEREEEEEEEEEEEEEEEEHREREHEEEREEREEE 


: 
sWRITE DATA, ACK, CvC*1 


° 
J SSSAAARAAAASSHSHSSHHKSEAREEAEEEHREESEEEEEEHAEEESHEEEEEEHEEEDEEEHESES EE 


123%: 


130$: 


243: 


25%: 


I 
ERRHRD 


EXTFEA 


#200, T238S1 

#10, 123850 

eT23PK2, R4 

R4, TSOBCRS) 
PC,CHKTSSR 

130$ 

RO,R1 

FATFLG 

ERRNO, T22SSR,PKTSSR 


#160000 ,R1 
@177776,R2 
PC, XNXM 


80% 
R1,NXMLO 


T23WB+2 
#140005, T23PK3 


TSSR(RS).R 
OSC INXM! SSRIBITS, R2 
R1,R2 


80$ 


T23WB+2 
T23WB+2, 04 
24% 


FATFLG 
ERRNO, T23TM,PKTSSR 


sCHECK FOR EXTENDED FEATURES Sw SWITCH 
sBR IF oo IS ON 


sONLY ONE TIME 
sWRITE MISCELLANEOUS CONT/READ STATUS 


sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 


sWRITE SUBSYS MEM PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR 

;6R, IF NO ERROR 

sERROR, SAVE TSSR 


sBUMP COUNT 
:TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CSERHRD 
-WORD 326 
«WORD T22SSR 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLP1 


sNXM LOW ADORESS START 
sLIMIT CHECK FOR NXM (HIGHEST) 
ADORESS 


;BR, IF NON FOUND 
sSET ADDRESS UP FOR TEST 


;CLEAR OUT THE HIGH BITS AREA 


sWRITE DATA, ACK, CvC=1 
;SET UP WRITE BUFFER ADORESS 
sSET UP BUFFER SIZE 
3R4 = POINTER TO PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
THEY EQUAL 


3; ARE 
:BR, IF OK ?. FUNCTION REJECT 
;BUMP TO NEXT ADDRESS 


BIT 
sCHECK TO SEE IF OVERFLOW INTO 19 BIT 
;8R, IF BITS 17 AND 18 


;BUMP COUNT 

;TSSR INCORRECT AFTER WRITE COMMAND 
TRAP CsERHRD 
-WORD 327 
.WORD T23TM 
.WORD PKTSSR 





TSV7 - HARDWARE TESTS 1-8 
WRITE DATA 


TEST 3: 


13863 


BASIC 


032146 
032146 
032150 
032150 
032150 
032150 
032152 
032160 
032162 
032166 


104406 


104403 
023727 
103402 
004737 


104402 
005737 
001002 
000137 
004737 
004737 
004737 


012124 


013737 
012704 


002212 
017272 


016064 
002212 


002172 
032560 


MACRO M1113 14-JUN-84 14:17 SEQ 9127 
803: CKLOOP ;LOOP Ir SELECTED 
TRAP CSCLPi1 
90$: 
ENDSUB 322272>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
L10050: 
TRAP CsESUB 
000017 CMP FATFLG,#@15. :IS ERROR COUNT AT 25 
BLO 999$ ;BR, IF LESS THAN 25 
JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
9993: 
;TEST 3, SUBTEST 6 
o 
;VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA 
;BUFFER STARTING IN EXISTANT MEMORY BUT RUNNING INTO 
sNONEXISTENT MEMORY TERMINATES WITH THE PROPER ERROR 
;STATUS. A LARGE ENOUGH RECORD SIZE IS SPECIFIED SUCH 
;THAT TAPE IS ACTUALLY MOVED AND WRITTEN. 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
73.6: 
TRAP Cs6SuUB 
TST NXMFLG 300 WE HAVE IT? 
BNE 10$ 3;B8R, IF ENOUGH 
JMP 130$ sSKIP THiS TEST IF NOT 
10$: JSR PC, T23RT3 sRESTORE PACKET 
JSR PC, TE3SREST 3SET COMMAND PACKET 
JSR PC, T23RT2 3;SET UP OTHER COMMAND PACKET 
FSSSSEEHSSEEASSSEASESSEASSSKASSSESSESKAESESSSESESEHSESHESESEAEEESEEEEKESEEEE 
> 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
WUUTTTTTTTTTTTTTTTTTITTTTTTTTTTTTTITITITI TT TTT TTT TTT TTT TTT TTT TTT te 
JSR PC ,SOFINIT 300 INITIALIZE ON CONTROLLER 
BCS 20% 3BR IF INIT WAS OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR , SF IMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
. WORD 328 
. WORD SFIERR 
. WORD SF IMSG 
20$: 
032600 MOV UNITN, T230SW ;SET ORIVE NUMBER IN PACKET 


K10 


MOV @T23PACKET ,R4 
{ FPREREEOEEEEESERESEEESEASSEEESESESSESS ERAS SEEDER EDEREDEESREREEEEEE 


; 
s;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


° 
FRSSSEKAHEAESASEEEESEESEEEEEEESEEESEAEERERESESEHEEEEEEEEEEEARESEEEESE 


sSUBROUTINE NEEDS PACKET ADDRESS 


L 10 





TSV7 - HAROWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 0128 
TEST ‘3: BASIC WRITE DATA 

1434 032254 004737 010752 JSR PC, WRTCHR s ISSUE WRITE CHARACTERISTICS 

1435 032260 10340 BCS 233% ;3R, IF COMMAND ISSUED OK 

1436 032262 005237 002212 INC FATFLG ;BUMP COUNT 

1440 032 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

1441 032270 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
032270 104456 TRAP CSERHRD 
032272 000511 -WORD 329 
032274 005054 -WORD WRITMSG 
032276 012124 -WORD SFIMSG 

1442 

1443 F SAAAASHSSSSSASSKSSSSSSSSESHEHSESESSEHESAESEAESEHESASESEHESSEHSEEHESESEESESEEEEEE 

1444 H 

1445 sWRITE DATA, ACK,CvC#1 

1446 3 

1447 {POAAOAEEEEEEEEEEEESERESESESEERESASEESESESESEEEESEEDESEEEEEDESEEDESS 

1448 

1449 032300 23%: 

1450 032300 012701 160000 MOV #160000 ,R1 s3NXM LOW ADORESS START 

1451 032304 012702 177776 MOV #177776,R2 sLIMIT CHECK FOR NXM (HIGHEST) 

1452 032310 004737 016466 JSR ° ;LOOK FOR NXM ADDRESS 

1453 032314 103051 BCC 80% sBR, IF NON FOUND 

1454 032316 010137 003150 MOV R1,NXMLO sSET ADDRESS UP FOR TesT 

1455 032322 012737 000000 032714 MOV 00, T23WB+2 SSET TO 16 BIT ADDRESS 

1456 032330 24%: 

1457 032330 012737 140005 032710 MOV #140005 ,, T23PK3 sWRITE DATA, as CvC*i 

1458 032336 015701 003130 MOV NXMLO,R1 s; HIGHEST S LOW BITS 

1459 032342 162701 000500 SUB »R1 sSET ADORESS A "LITTLE LOWER 

1460 032346 010137 032712 MOV R1, T23WB ;LOAD INTO THE PACKET 

1461 0352352 012737 000000 032716 MOV #0. ,T23SZ ;SET UP BUFFER SIZE (64K BYTES) 

1 032 012704 032710 MOV T23PK3 ,R4 3R4 = POINTER TO PACKET 

1463 032364 010465 000000 MOV R4, TSOBCRS) ; ISSUE COMMAND 

1464 032370 004737 016340 JSR »WAITF sWAIT FOR SSR TO SET 

1465 032374 016501 000002 MOV TSSRCRS).R ;GET TSSR CONTENTS 

1466 032400 012702 104210 MOV @sc tNXM! SSR IBITS, R2 sSET UP EXPECTED 

1467 032404 020102 CMP R1,R2 sARE THEY EQUAL 

1468 032406 001414 BEQ 80% ;BR, IF OK ESP. FUNCTION REJECT 

1469 032410 37 032714 INC T23WB+2 sBUMP TO NEXT ADDRESS RANGE 

1470 032414 023727 032714 000004 CMP T23WB +2, 04 ;CHECK TO SEE - WE WENT TO HIGH 

1471 032422 001342 BNE 24% ;BR, IF NO OVER FLOW 

1472 032424 005237 002212 25$: INC FATFLG ; BUMP COUNT 

1476 032430 ERRHRD ERRNO, T23TM,PKTSSR ;TSSR INCORRECT AFTER na COMMAND 
032430 104456 CSERHRD 
032432 000512 TWORO 330 
032434 033142 -WORD T23TM 
032436 012136 .WORD PKTSSR 

1477 032440 80$: CKLOOP ;LOOP IF SELECTED 
032440 104406 TRAP C$CLP1 

1478 032442 004737 034174 JSR PC, T23RT2 ;CLEAN UP PACKET 

1479 032446 004737 034236 JSR PC, T23RTS sRESTORE PACKET 

1480 032452 012737 102010 032670 MOV #102010, T23PK2 sREWIND (POSITION) COMMAND 

1481 032460 012704 032670 MOV @T235PK2 ,R4 ;LOAD R4 WITH PACKET ADDRESS 

1482 032464 010465 MOV R4, TSOBCRS) s ISSUE REWIND COMMAND 

1483 032470 004737 16426 JSR ,»CHKTSSR s;WAIT FOR SSR TO SET 

1484 032474 103407 BCS 30% sBR, IF TSSR IS OK (GOOD) 

1485 032476 010001 MOV RO,R1 sSAVE TSSR CONTENTS 

1486 032500 005237 002212 INC FATFLG sBUMP COUNT 

1490 032504 ERRHRD ERRNO, T235RWN,PKTSSR sTSSR IS INCORRECT AFTER REWIND 


“M10 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 0129 | 
TEST 3: BASIC WRITE DATA 

032504 104456 TRAP CSERHRD 
032506 000513 .WORD 331 
032510 033216 . WORD T23RWN 
032512 012136 . WORD PKTSSR 

1491 032514 130$: 

1492 032514 ENDSUB 3 >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
032514 L10051: 
032514 104403 TRAP CsESuB 

1493 032516 023727 002212 000017 CMP FATFLG, #15. ;IS ERROR COUNT AT 25 

1494 032524 103402 BLO 999$ ;6R, IF LESS THAN 25 

1495 032526 004737 017272 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 

1496 032532 999%: 

1497 032532 004737 016546 JSR PC, TSTLOOP ;D0 WE NEED TO ITERATE TEST 

1498 032536 103002 BCC 163$ ;6R, IF NO LOOP REQUIRED 

1499 032540 000137 027342 JMP T23L00P ;EXECUTE AGAIN 

1500 032544 163$: 

1501 032544 EXIT TST ;ALL DONE THIS TEST 
032544 104432 TRAP CSEXxIT 
032546 001702 . WORD L10043-. 

1502 

1503 i? 

1308 ;LOCAL STORAGE FOR THIS TEST 

1507 032550 .BLKB 10-<.-TSV2E7> 

1509 032560 T23PACKET: ;COMMAND PACKET FOR TEST 

1510 032560 100004 . WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH ACK 

1511 032562 032570 WORD T23DATA sADDRESS OF CHARACTERISTICS BLOCK 

1512 032564 . WORD 0 

1513 032566 000010 . WORD 8. ;STARTING VALUE OF BLOCK SIZE 

1514 032570 T23DATA: ;CHARACTERISTICS DATA BLOCK 

1515 032570 032602 . WORD T238FR sADDRESS OF MESSAGE BUFFER 

1516 032572 000000 .WORD 0 

1517 032574 000012 WORD 10. ;LENGTH OF MESSAGE BUFFER 

1518 032576 000000 WORD 0 

1519 032600 000000 T230SW: .WORD 0 ;SELECT DRIVE 0 

free 032602 T23BFR: .BLKW 25. sMESSAGE BUFFER 

fae ;WRITE SUBSYSTEM MEMORY COMMAND PACKET 

1525 032664 .BLKB = 10-«<. - TSV2E7> 

1527 032670 T23PK2: | 

1528 032670 100006 .WORD 100006 ;WRITE SUB SYS MEM COMMAND, AND ACK 

1529 032672 032722 .WORD T238F2 ;ADORESS OF SELECT BLOCK DATA 

1530 032674 000000 "WORD 0 | 

1531 032676 000006 WORD 6. ;SIZE OF DATA PACKET 

1534 032700 .BLKB 10-<.,-TSV2E7> 

1536 032710 T23PK3: 

1537 032710 100005 .WORD 100005 ;WRITE COMMANC, AND ACK 

1538 032712 000000 T23WB: .WORD 0 ;ADORESS OF WRITE BUFFER 

1539 032714 000000 WORD 0 

1540 032716 000000 T23SZ: .WORD 0 ;SIZE OF BUFFER (EXTENT) 

et = 

1543 032720 000000 T23RSZ: .WORD 0 ;LARGEST TAPE RECORD IN BYTES 


my 
| 
; 





TSV7 - 


S HARDWARE 
TEST 3: BASIC 


032722 
032722 
032723 
032724 
032726 


032730 
032732 


TESTS 1- 
WRITE DATA 
010 
200 
000000 
000000 
000000 
000000 
100005 
100405 
102005 
177777 
127 122 
105 117 
127 122 
124 123 
122 145 
122 101 
124 123 
104 162 
124 123 
124 123 
103 126 
124 123 
127 122 
102 141 
012701 032560 
012721 100004 
012721 032570 
005021 
012721 000012 
eeeres 032602 
012721 000024 
005021 
012711 000000 
012702 000030 


T238F 2: 


T238S0: . 


T23BS1: 
T23S2: 
T23S3: 
; 


; 
T23TMP: 
T23WRT: 


MACRO M1113 14-JUN-84 14:17 


N10 


SEQ 0130 


;BSELO AREA 
;BSEL1 AREA 
;SEL 2 AREA | 
;DATA AREA 


; TEMPORARY REGISTER 
sRETRY COMMAND 


.EVEN 
s; TAPE MOTION PACKET COMMAND VALUES 


. WORD 


. WORD 
: .WORD 
. WORD 


177777 


;WRITE DATA (NEXT) 
;WRITE DATA RETRY 
sWRITE CONTINOUS 
sEND OF DATA 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 


T23SSR: * 


‘WRITE Command Not Accepted’ 


‘EOT Not F 


In 12000 4k Writes, (Use Shorter Tape)’ 


ound 
‘WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 
‘TSSR Not Correct After WRITE Command Re ject’ 


‘Rewind (POSITION) 


Not Accepted’ 


‘RAM Error, Correct Date Pattern Not In Ram’ 
ommend’ 


‘TSSR Init. 


Failed After WRITE C 


‘Drive 7 Select Feiled To Set “OFL” In TSSR’ 


‘TSSR Not Correct After WRITE DATA Command, 
‘TSSR Not Correct After WRITE DATA Command, 
‘CVC Set, Didn''t Reset 
‘TSBA Not Correct After WRITE DATA 
Pads SUBSYSTEM MEMORY Command 


SWB Bit Set’ 
Check For Tape Offline’ 
VCK In Meneaes Buffer’ 

Command’ 


Not Accepted (RAM Read)’ 


SCIZ ‘Basic Write’ 


; 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
;WRITE SUBSYSTEM MEMORY COMMAND 


T23REST: 


s;SAVE THE REGISTERS 
sSTART OF THE PACKET 


@T23PACKET ,R1 
#100004 ,(R1)+ s;WRITE SUBSYSTEM MEM. WITH ACK 
@T23DATA,(R1)+ sADDRESS OF CHARAISTICS DATA BLOCK 
(R1)+ sEXTENDED ADDRESS 
#10. ,(R1)+ ;SIZE OF DATA BLOCK IN BYTES 
eT2s6rR, CRI D+ sADDRESS OF MESSAGE BUFFER 
+t oCR1)+ sLENGTH OF MESSAGE BUFFER 

+ 
#0, (R1) sSELECT ORIVE ZERO 
024. ,R2 s;NUMBER OF LOCATIONS TO BE CLEARED 


TSv? 
Test 
1603 034154 

34162 


1659 034354 


TESTS 


012721 


- HARDWARE 1-8 
3: BASIC WRITE DATA 


af 
17777° 


000000 


032670 
100006 
032722 


000006 
032722 


032710 
100005 


032730 


032612 
000002 


017512 


MACRO M1115 


032602 64%: 


Bl] 


14-JUN-84 14:17 


MOV 
TST 
CMP 


BNE 
RTS 


T23RT2: 


T23RTS: 


0177777, T23BFRCR2) 
-(R2) 


6T25PK2,R1 
#100006 ,,(R1)- 
@T238F2,(R1)> 


@T235PK3,R1 
+ Ee dial 


SEQ 0131 


sALL ONES TO MESSAGE BUFFER 
sBUMP DOWN TO NEXT LOCATION 
1R2 AT ZERO YET 

sKEEP GOING UNTIL DONE 

sRE TURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK 
sADORESS OF DATA BLOCK 
sEXTENDED ~~ oy Ss 

sSIZE OF DATA BLOCK IN BYTES 
sPOINT TO DATA SEL AREA 


sRE TURN 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 
sWRITE TAPE. WITH ACK 
sADORESS OF DATA BLOCK 


;ROUTINE TO vey WRITE DATA IN CASE OF BAD TAPE FOR TEST 
ie SUBTEST 2 € 3 


PINPUTS: 


T23CHK : 


1$: 


EXIT: 
RETRY: 
2s: 


032712 
032710 


Ri*TSSR 


SUBROUTINE SETS UP T235WRT FOR RETRY 


R3,RO 
PC, FILLMEM 


;SAVE THE REGISTERS 
sCLEAR LOCAL REGISTER 
3IS SC SET IN TSSR? 

3NO, YOU GOT Dart: 
YES, GET XSTAT1 

sIS UNC SET IN XSTAT1? 
sNO, CHECK COR 

sYES,00 WRITE DATA RETRY 
31S COR SET IN XSTAT1i THEN? 
sYES SO RETRY 

sNO, YOU GOT PROBLEMS 
;RETURN 


sSTARTING RECORD SIZE 

sSTARTING WRITE BUFFER ADDRESS 

sWRITE DATA RETRY COMMAND SETUP BY SUBROUTINE 
sSET UP R4 WITH PACKET ADORESS 

sSET PATTERN IN CORRECT REGISTER 

sFILL MEMORY WITH RECORD SIZE 





TSV7 -_HARDWARE TESTS 1 
TEST 
010337 


0050 
012737 


3: BASIC WRITE DATA 


017272 


006356 002170 
003124 
017364 


MACRO M1113 


Cll 


14-JUN-84 14:17 


MOV R3,723SZ 
MOV R4, a 
JSR PC ,WAITF 

MOV TSSR(RS),R1 
MOV @SSR ,R2 
CMP R1,R2 

BEQ EXIT 


BNE 2s 
FATAL: INC FATFLG 
MOV T238FR ,R2 
ERRHRO ERRNC, SCHERR , PKTMES 


JSR PC .CKDROP 
ENDTST 


SEQ 9132 
sSET UP RECORD SIZE IN PACKET 
COMMAND 


sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 


s6R, IF OK 
sTRY FIVE TIMES THEN ExIT 
sDONE FIVE YET? 


: SERHRO 


sOROP THE UNIT 


L10043: 
TRAP CserTstT | 


-SBTTL TEST 4: BASIC READ DATA (FORWARD AND REVERSE ) 


3° 


; THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE 
OPERATE PROPERLY. VARIOUS COMBINATI 


BOUNDARTE 
sSPACE IS AVAILIABLE), AND BYTE-SWAP CONTROL 
C FURTHER VER 


’ 
sDATA BUFFER 


OF ODD AND E 


CODES IN 
- AND DATA BUFFERS IN NON-EXISTANT MEMORY. THE TEST 


= 
a 
nn 
-_ 
m 
ad oe 
o 
g 
~ 
a 
@o 
Q& 
4) 
~ 
im) 


sTHE TEST CONSISTS OF THE FOLLOWING 14 SUBTESTS 


é 
$ 
ge 


BGNTST 

MOV @EPRT1,EPRTSW 
CLR K TENABLE 

JSR PC ,.KTOFF 

MOV #TST24I0,RO 
JSR PC, TSTSETUP 
JSR PC ,MEMCK 

CLR NXMFLG 

MOV #5 ,LOOPCNT 


3? 


; 
sTEST 4, SUBTEST 1 
; 


T4:: 
sSET UP PRIMARY ERROR MESSAGE 
3s TURN OFF KT11 
, TURN KT11 OFF 
sASCIZ MESSAGE TO IDENTIFY TEST 
300 INITIAL TEST SETUP 
;CHECK FOR MEMORY 
;SET FLAG 
;PERFORM 5 ITERATIONS 


- HARDWART 


MACRO M11i3 14-JUN-84 14:17 SEQ 9133 


U1] 


TSv? TESTS 1 
TEST 4: BASIC READ bata * (FORWARD AND REVERSE ) 


17 
1762 034636 


012737 


004737 


046530 
046664 


046622 
176750 


016064 


000250 
002116 
177772 
177756 
044216 
002212 


000007 
044040 


010752 


044216 


044060 


:VERIFIES THAT A READ DATA COMMAND WITH THE CLEAR 

re CHECK (CVC) BIT CLEAR IS REJECTED IF THE 
OLUME CHECK ne IS SET. ALL \.EGAL 

 COMBINAT IONS OF THE COMMAND MODE FIELD ARE TESTED 

3(I.€., IT IS VERIFIED THAT THE COMMAND IS REJECTED 

sO0UE TO VCK BEING SET RATHER THAN ERRONEOUS DECODING 

;0F THE MODE FIELD. 


T24L00P : 
BGNSUBS y>>>>>>>>>>>> on % SUBTEST +>>>>>>>>>>> 
4.1: 
TRAP C3658 
JSR PC, T24REST sSET COMMAND PACKET 
JSR PC, T24RTS iSET UP OTHER COMMAND PACKET 
JSR PC, T24RT2 sSET UP OTHER COMMAND PACKET 
MOV #65000. , T240LY 3LOAD UP DELAY ROUTINE 


j PROOROSHASSSREESSEEESEEEEHEHEEEESEEERESESEOOEEEEDESEEEEEEEEEOOEEE 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


; 
F SASSSSSSSSSSSSSSSSSHSSSHSHSSEHESESSSHHESSSSHSSESSHEHSSHHHESESHEESEEEES 


5$: JSR PC SOF INIT 300 INITIALIZE ON CONTROLLER 

Bcs 208 38R IF INIT WAS OK 

DELAY 250 ;DELAY AWHILE 
MOV 0250 ,(PC)- 
-WORD O 
MOV LSOLY,CPC)- 
-WORD O 
DEC -6( PC) 
BNE .-4 
DEC hx Ye 

DEC T240LY ;BUMP DELAY COUNTER 

BNE 5$ sBR, IF MORE DELAY REQUIRED 

INC FATFLG sBUMP COUNT 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERROF ERRNO,SFIERR,SFIMSG tFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
.WORD 401 
-WORD SFIERR 
-WORD SFIMSG 

20%: 
MOV 07, T240SW sSET ORIVE NUMBER IN PACKET 


MOV @T24PACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 
sPPROEEESESESOEEEESEEESEESSEREHEEESEESEEEESESEEEDEEOSEEOSEEESESEEES 

3 

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


; 
F FSEHSHSSEAESSEHSESASHSHEASESOESESESEHESHESESSEHSESOSESSHESSESESSEHESEEEES 


JSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 


TSV7 - HARDWARE TESTS 
TEST “4: BASIC READ DATA (FORWARD AND REVERSE ) 


te) 
1812 one 


000625 
045515 
012124 


104406 


002216 


000200 
000010 
044150 
000000 


016426 


002212 


000007 
044040 


010752 
002212 


000002 
000100 


002212 


MACRO M1113 14-JUN-84 14;17 


044201 
044200 


044060 


243: 


CKLOOP 


MOV 
MOV 


chs 
FATFLG 


RO,R1 

ERRNO, WRTMSG, SF IMSG 
EXTFEA 

50% 


#200, T248S1 


FATFLG 
ERRNO, T24SSR ,PKTSSR 


#7, T240SW 
@T24PACKET ,R4 


SEQ 0134 
;BR, IF COMMAND ISSUED OW 
sBUMP COUNT 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERMRO 


-WORD 402 
. WORD 


-WORD SF 
sCHECK FOR EXTENDED FEATURES SW SWITCH 
sBR IF SWITCH IS ON 


sWRITE MISCELLANEOUS CONT/READ STATUS 


sFUNCTION SELECTION BIT (TURN ON EXTFEA Hw 


sWRITE SUBSYS MEM PACKET 
SUE COMMAND 


:IS Cc 

sWAIT FOR SSR 

sBR, IF NOE 

sERROR, SAVE TSSR 

sBUMP COUNT 

:TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CSERHRD 
-WORD 403 
. HORD T24SSR 
. WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLP1 


sSET DRIVE NUMBER IN PACKET 
sSUBROUTINE NEEDS PACKET ADDRESS 


SF SSSSSSSSSSSSSSSSSSSSHSSSHSSESSHESSHESSHSESHASSHHHESSEHEESSEHEEHSEEEEEEE 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


° 
FSESSSSSHSSSSHSSSHSSSSSSSHESSASESSSSHESASHEASSSESSESSSESHKESSSEEEESESESEED 


CKLOOP 


PC ,WRTCHR 

50$ 

FATFLG 

RO,R1 

ERRNO, WRTMSG , SF INSG 


TSSRCRS),R1 
OOFL .R1 
60% 


FATFLG 
ERRNO, T240FL , SF IMSG 


s ISSUE WRITE CHARACTERISTICS 
;8R, IF COMMAND ISSUED 0K 
;BUMP COUNT 


;SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC dy 


CSERHRO 
-WORD 404 
«WORD WRITMSG 
-WORD SF IMSG 
SCOPE LOOP 
TRAP CsCLP1 
sGET TSSR CONTENTS 
sCHECK FOR THE OFFLINE BIT SET 
;BR, IF OFFLINE (GOOD) 
sBUMP COUNT 
;OFF LINE SHOULD HAVE — A (BAD ) 
CsEROF 
TYORO os 
“WORD = T240FL 
-WORD SFIMSG 
sLOOP IF SELECTED 
TRAP CsCLP1 


SWITCH) 


Fil 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 9135 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE ) 
1813 035032 012703 044206 MOV @T24RN,R3 sPOINTER FOR COMMANDS 
4a 

rte FRRAAAHAAHEHARESEAEEEEEEROEREREEOEHOOREEEEREEERERERSEREOREEEOREDOES 

18616 ; 

1817 ; TAPE READ COMMAND IN PLACE 

8i8 ; 

ty FORSHEE HAHASEHAHEHASEEAEHEEEERESESSEEEHEHSEAEEEEEEEEREREEHEEERES 

1820 

1821 035036 011337 044170 65$: MOV (R3), T24PK3 s TAPE READ COMMAND IN PLACE 

1822 035042 012704 044170 MOV @T24PK3 ,R4 1R4 « POINTER TO PACKET 

1623 035046 010465 000000 MOV R4, TSOBCRS) ; ISSUE COMMAND 

1824 035052 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 

1825 035056 016501 000002 MOV TSSRC(R5),R1 sGET TSSR CONTENTS 

1826 035062 912702 100306 MOV @SSRISC!OFL!BIT1I!BIT2,R2] ;SET UP EXPECTED 

1827 035066 020102 CMP R1,R2 s;ARE THEY EQUAL 

1828 035070 001406 BEQ 80$ ;68R, IF OK ESP. FUNCTION REJECT 

1829 035072 005237 002212 INC FATFLG sBUMP COUNT 

1833 035076 ERRHRD ERRNO, T24TM,PKTSSR iTSSR INCORRECT AFTER = oe CMO 
035076 104456 CSERHROD 
035100 000626 TNORD 406 
035102 045253 -WORD T24TM 
035104 012136 WORD PKTSSR 

1834 035106 80$: CKLOOP ;LOOP IF SELECTED 
035106 104406 TRAP CSCLPl1 

1835 035110 005723 TST CR3)+ sBUMP TO NEXT COMMAND 

1636 035112 022713 177777 CMP 177777,CR3) sEND od THE COMMANDS YET 

1637 035116 00140! BEQ 90$ ;6R, IF DONE 

1838 035120 000746 BR 65$ ;MORE coma S) TO GO 

1839 035122 90$: 

1840 035122 ENDSUB 3>2>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
035122 L10053: 
025122 104403 TRAP CsSESUB 

1841 035124 023727 002212 000017 CMP FATFLG, #15. sIS ERROR COUNT AT 25 

1842 035132 1034C2 BLO 999% 38R, IF LESS THAN 25 

1843 035134 004737 017272 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 

1844 035140 999%: 

1845 

1846 3¢ 

1847 ; 

i. ;TEST 4, SUBTEST 2 

o 

1850 ;VERIFIES THAT READ FORWARD COMMANDS WITH SWB-0 

1851 OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN 

1852 sWRITTEN WITH A SERIES OF TEST RECORDS VARING IN 

1853 sLENGTH AND DATA CONTENT. THE TAPE IS THEN REWOUND 

1854 sAGAIN AND THE RECORD READ SEQUENTIALLY AND a Ag 

1855 I CSTATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON 

1856 sEACH READ FORWARD COMMAND IS SET TO THE LENGTH OF THE 

1857 SEXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD 

1858 sOCCUR. 

1859 F 

1860 3 

1861 8 

1862 3° 

1863 035140 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
035140 T4.2: 


035140 104402 TRAP C$B8SUB 


- HARDWARE TESTS 1 


TSV7 
TEST “4: BASIC 


1864 035142 
1865 035146 
1866 035152 


1884 035210 


1916 035266 


004737 
004737 
004737 


003650 
012124 


013737 
012704 


005054 
012124 
104406 


-8 MACRO M1113 14-JUN-84 14:17 SEQ © 
READ BATA (FORWARD AND REVERSE ) 136 
046664 JSR PC, T24RT3 ;SET UP OTHER COMMAND PACKET 
046530 JSR PC, T24REST :SET COMMAND PACKET 
046622 JSR PC‘ T24RT2 ;SET UP OTHER COMMAND PACKET 
FESHSSSSSSSSSESSSHESSSHEASHSSSHESSHSHEHEHESESSESSSEHESHEHEEEAESEEESEEHHSEOS 
. 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
> seunannnsenennneneenseenenenenesenesenedeeenesnnesbenneenteneneees 
016064 JSR PC, SOFINIT ;00 INITIALIZE ON CONTROLLER 
BCS 208 ;8R IF INIT WAS OK 
002212 INC FATFL . ;BUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR, SF IMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP  ——- CSEROF 
.WORD 407 
“WORD  SFIERR 
im “WORD  SFIMSG 
002172 044060 “MOV UNITN, T240SW ;SET ORIVE NUMBER IN PACKET 
044040 MOV @T24PACKET ,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 
F FSSSSSSSSSSSSSHSSSSSSSSSHSSHHSSHESHSESSHSHSESSESSHHSSSSESHESESEESESEEE 
° 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
A Tem 
010752 JSR PC, WRTCHR ;ISSUE WRITE CHARACTERISTICS 
BCS 243 ;8R, IF COMMAND ISSUED OK 
002212 INC FATFLG ;BUMP COUNT 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
TRAP § CSERHRD 
.WORD 408 
"WORD  WRTMSG 
“WORD SFIMSG 
24%:  CKLOOP ;LOOP IF SELECTED 
TRAP = C$CLP1 
FSSSSSSSSHSSHHSSSSSSSSSSSSSSESSASSHASHSSHESSSHESSESSSSSSSHSESSHESASEHEESS 
H 
;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
AENEID ebNNeee 
011104 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
BCS 308 ;8R, IF NO PROBLEM 
MOV RO,R1 ;SAVE TSSR 
002212 INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T24RWN,PKTSSR ;REWIND NOT ACCEPTED 
TRAP _ CSERHRD 
.WORD 409 
"WORD  T24RWN 
"WORD PKTSSR 
30%:  CKLOOP ;LOOP IF SELECTED 





— 


TSV7 - HARDWARE 


TEST 
TEST 4: BASIC READ Bata SC FORWARD AND REVERSE ) 


035266 104406 


035270 013701 


1 
035324 012703 
035330 013737 


035336 012737 
035344 012704 


000400 
003114 


140005 
044170 


017512 
044176 


000414 


MACRO M1113 


044172 


044170 


14-JUN-84 14:17 


SEQ 9137 


TRAP CSCLPi 


F SSHAHSHSSAAASHSESHEAAASSESHSHEEEHSEHHEASSHESHEEASEESEEHEEESESEEEEEEHEHEDE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


; 
FAMAHHAHSHSSSASSHS SASSO SHAAASEASEHEEESSHSESSHSEHEHESHESHESEHESESEEEEESE 


40%: 


MOV T24BFR+6,R1 
R1,R2 


MOV : 

BIS oBIT1,R2 
CMP R1,R2 
BEG 40% 

INC 


FATFLG 
ERRHRD ERRNO, T24B0T ,EXPREC 


CKLOOP 


MOV #256. ,R3 
MOV FREE, T24RB 


sPICK UP XSTO 


sSET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

;D0ES EXP = REC'D 

3BR, IF EQUAL (OK) 

sBUIMP COUNT 

;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
. WORD 410 
WORD T24B0T 
WORD EXPREC 


;LOOP IF SELECTED 
TRAP CSCLPl 
sREC 


ORD SIZE 
STARTING WRITE BUFFER ADDRESS 


J SSSASEASSSESSSSSSSSSESSSSSSHSSSHSESHSSSSSSSSSESSEESHSEHEASESHESHEHESSESOSESS 


;WRITE DATA,CVC=1,ACK COMMAND 


; 
{ SSRESSASSASHSSEHSSESASSSASSSEESSEEHSES. % -SHOSESERESESSESESEEEHESEESSEESS 


65$: 


75%: 


1208: 


MOV #140005 , T24PK3 
MOV @T24PK3,R4 


R3,RO 
JSR PC, FILLMEM 
MOV R3,T24SZ 
MOV R4, TSOBCRS) 


JSR PC ,WAITF 
MOV TSSRCRS),R1 
MOV @SSR ,R2 
CMP R1,R2 

BEQ 75$ 


FATFLG 
ERRHRD ERRNO, WRTERR,PKTSSR 


TST (R3)+ 
CMP #268. ,R3 
65% 


sWRITE DATA,CVC=1,ACK COMMAND 
;SET UP R4 WITH PACKET ADORESS 


sSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

s;GET TSSR CONTENTS 

sSET UP EXPECTED 


3;8R, IF OK 

s;BUMP COUNT 

iTSSR INCORRECT AFTER aay 1: i ee 
Moro 411 
WORD WRTERR 
.WORD PKTSSR 


s;LOOP IF SELECTED 
TRAP CsCLP1 


; BUMP eae >: SIZE 


sEND OF RECORD YET 
;BR, IF MORE RECORDS TO WRITE 
;LOOP IF SELECTED 
TRAP CsCLP1 


TSV7 - HARDWARE TESTS 1-8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE ) 


1968 
1969 
1970 
1971 
1972 
1973 
1974 035436 
1975 035442 


2016 035564 
2017 035570 
2018 035574 
2019 035576 
2020 035600 


013701 


104406 
012703 
013737 


012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 


011104 
016426 


002212 


000400 
003114 


002212 


[1] 


MACRO M1113 14-JUN-84 14:17 SEQ 9138 


044172 


044170 


FRSASAAHRSHESHSAAASHESHESESEHEHE SHEESH ESEEHESEESCHEHEEEEEERESHEHHRHEOERESEEE 


ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


. 
J PPSEREARSSAHESSESAEESESSHEAEEHEARESEEEHEOHHEESESEHEESEEEEHEESEEEEEEHETESE 


JSR PC ,REWIND sCALiL TAPE REWIND COMMAND 

JSR PC ,CHKTSSR sSEE HOW TSSR IS 

BCS 130$ ;BR, IF NO PROBLEM 

MOV RO,R1 sSAVE TSSR 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T24RWN,PKTSSR sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 412 
-WORD T24RWN 
-WORD PKTSSR 


130$: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 


FPSSSSHSSSSSHSHSEHSSHSHSESHEASESHEASESHSEESEAESEHHEEHEEEESAESEEHEEEEEESEE OEE 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
FESHHAHEEHEHEHEEHEHEREHRHEHEHESESHEHEEEHEEHEHHEAHEEEEEEESHEKEHREH EHR OREO HEE 


MOV T24BFR+6,R1 sPICK UP XSTO 

MOV R1,R2 sSET UP EXPECTED 

BIS @BIT1,R2 sSET BOT BIT IN EXPECTED 

CMP R1,R2 ;DOES EXP = REC'D 

BEQ 140% sBR, IF EQUAL (OK) 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T24B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 413 
-WORD T24B0T 
-WORD EXPREC 

140%: CKLOOP ;LOOP IF SELECTED 

TRAP CsCLP1 

MOV #256. ,.R3 sRECORD SIZE 


MOV FREE , T24RB sSTARTING READ BUFFER ADDRESS 


F SSSSSHSSHESSASSHSSSESSHSSESKSESESSSSESSESEHSESESSEHSESESESSEHSSEHASHESEEEHEEE 


; 
sREAD DATA,CVC=1,ACK COMMAND 
; 


{ SSSESSSHSASSESSSESSEAEASEEESESSSEESHASEESEHSSESSSEHSSSESSSEEASEAEEEEEEEE 


MOV #140001 , T24PK3 sREAD DATA,CVC=1,ACK COMMAND 


165%: MOV @T24PK3 ,R4 sSET UP R4 WITH PACKET ADORESS 
MOV R3,T24SZ sSET UP RECORD SIZE IN PACKET 
MOV R4, TSOB(RS) s ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sGET TSSR CONTENTS 
MOV @SSR ,R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 170% :BR, IF OK 
INC FATFLG sBUMP COUNT 


TSv? 
TEST 4 


2024 


3 
FA 


| 2067 
| 2068 


: BASIC 


035604 
035604 


035720 
035720 
035720 
035722 
035726 


- HARDWARE TESTS 1-8 


3402 
004737 


104402 
004737 
004737 


ERRHRD 


JI 1 


MACRO M1113 14-JUN-84 14:17 
READ DATA (FORWARD AND REVERSE ) 


ERRNO, RDERR ,PKTSSR 


G 
ERRNO, T240TA,EXPREC 


(R4)+ 
R2,R4 
R4,R3 
173% 
(R3)+ 
$266. ,R3 
165$ 


FATFLG,@15. 
999% 
PC ,CKDROP 


H 
;TEST 4, SUBTEST 3 
;VERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND THE 


sSWAP BYTES (SWB) BIT SET OPERATES PROPERLY. 


;TSSR INCORRECT AFTER READ DATA 


sLOOP IF SELECTED 


:;GET BUFFER ADDRESS 
sCURRENT RECORD SIZE 


“WORD 
“WORD 


TRAP 


sFIRST LOCATION IN BUFFER 
;sGET LOCATION IN BUFFER CANDDRESS) 


sCHECK DATA READ (R3=DATA ALSO) 


;BR, IF ALL IS WELL 
sRECD DATA 
;EXPECTED DATA 
;BUMP COUNT 


;DATA READ NOT = WRITTEN 


;LOOP IF SELECTED 


;BUMP TO NEXT LOCATION 
;GET BACK TO CORRECT SIZE 


;BR, IF MORE RECORDS TO WRITE 


;LOOP IF SELECTED 


TRAP 


SEQ 0139 


CSERHRD 
414 
RDERR 
PKTSSR 


CsCLP1 


CsCLP1 


CsCLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


L10054: 


TRAP 


:IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 


THE TEST 


sSEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 
; THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 
; 


170$: 
003114 
000400 

173$: 
002212 

180$: 
000412 

190%: 
002212 000017 
017272 

999%: 

3¢ 

H 
046664 
046530 


BGNSUB 


JSR 
JSR 


PC, T24RTS 
PC, T24REST 


CsESUB 


;>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
74.3; 


TRAP 


sSET UP OTHER COMMAND PACKET 


;SET COMMAND PACKET 


C$B8SUB 


TSV7 - HARDWARE TESTS 


TFST 4: BASIC READ BATA SC FORWARD AND REVERSE ) 


2069 
2070 
2071 


035732 


035736 
035742 
035744 
035750 
035752 
035752 
035754 
035756 
035760 
035762 


2086 035762 


035770 


035774 


004737 


003650 
012124 


013737 
012704 


012124 
104406 


046622 


016064 
002212 


002172 
044040 


010752 
002212 


011104 


002212 


MACRO M1113 14-JUN-84 14:17 


044060 


JSR PC, T24RT2 


;SET UP OTHER COMMAND PACKET 


J FSSKAERSSSEKSSAARERAESEAESESEEREAESSESEESEREEAEEEEESEEEAEEEEEEEEEEEEHEEE 


; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


; 
{ SSAAAKSSSHSAEHSRESEHESERERASASESSSEASSEEAAESEEEAEEHREEESEESEEEREEDEEOS 


20%: 


JSR PC, SOF INIT 
20$ 
INC FATFLG 
RO,R1 
ERRDF ERRNO, SFIERR,SFIMSG 


MOV UNITN, T240SW 
MOV @T24PACKET ,R4 


300 INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

;BUMP COUNT 

sCONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
. WORD 
. WORD 


sSET DRIVE NUMBER IN PACKET 


; SUBROUTINE NEEDS PACKET ADORESS 


J SSSESAHSSSAEASESSESSSESSSSSESSSESEHSESSEHSEAEHSESESESESESSSESESEHKEEEESEEEEEEEEES 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
{ ERAKSAKASSSSAASSSSSHSSSSEKESASESSSSEASESASESEHSEHSESAEEESKESEESEEEEEEOEERED 


24s: 


JSR PC ,WRTCHR 


BCS 243 
INC ah 
MOV RO,R 


ERRHRD ERRNO, WRTMSG , SF IMSG 


CKLOOP 


sISSUE WRITE CHARACTERISTICS 
;B8R, IF COMMAND ISSUED OK 
;BUMP COUNT 

;SAVE CONTENTS OF TSSR 

;WRITE CHARACTERISTISC FAILED 


;LOOP IF SELECTED 


FSSSSSSESSSASSSHESSSAASASSSASSSSKSESSSESSAASHEEAAAEKAEESESAEEEEEEKREEEEESE 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


; 
{EERE EEA AERAKAEMEE EERE EKRE EHR EKER KR HEH 


JSR PC ,REWIND 

BCS 30% 

MOV RO,R1 

INC FATFLG 

ERRHRD ERRNO, T24RWN,PKTSSR 


CKLOOP 


s;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 


sSAVE TSSR 

s;BUMP COUNT 

REWIND NOT ACCEPTED 
TRAP 
. WORD 
. WORN 
. WORD 

sLOQ0P IF SELECTED 
TRAP 


SEQ 9140 


CsCLP1 


CSERHRD 
418 
T24RWN 
PKTSSR 


CsCLP1 


Lil 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14;17 SEQ 0141 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE ) 

212i FESSSSSHSSEASSHAEHKEEAESEHOEHEHREEEAESEHESESEOSHESEHEEHEOCAEEEEEEHESESEEES 

2122 3 

2123 sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 

siss WritiiitifititiiitiiititiitiiiiiitiiriiiiiiiiiiiiititiiTitititiit ttt: 

2126 

2127 036050 013701 044070 MOV T24BFR+6,R1 ;PICK UP XxSTO 

2128 036054 010102 MOV R1,R2 ;SET UP EXPECTED 

2129 036056 052702 000002 BIS $BIT1,R2 ;SET BOT BIT IN EXPECTED 

2130 036062 020102 CMP R1,R2 ;D0ES EXP = REC’D 

2131 036064 001406 BEQ 40$ ;B8R, IF EQUAL (0K) 

2132 036066 005237 002212 INC FATFLG sBUMP COUNT 

2136 036072 ERRHRD ERRNO, T24B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
036072 104456 TRAP CSERHRD 
036074 000643 -WORD 419 
036076 045043 . WORD T24B0T 
036100 015564 -WORD EXPREC 

2137 036102 40$: CKLOOP ;LOOP IF SELECTED 
036102 104406 TRAP CSCLP1 

2138 036104 012703 000400 MOV 9256. ,.R3 sRECORD SIZE 

eH 036110 013737 003114 044172 MOV FREE, T24RB ;STARTING WRITE BUFFER ADORESS 

2141 PrtTtTitiiitiiiiiiiiitiiiiiitiiiitiiiitiiitiiititititititiiit itt tity 

2142 3 

ois sWRITE DATA,ACK,SWB,CVC=1 COMMAND 

2145 Trritiititiiititittitiiiititiiiititiiiitiitiiititititiiitiitttt titty 

2146 

2147 036116 012737 150005 044170 MOV #150005 , T24PK3 ;WRITE DATA,ACK.SWB,CVC=1 COMMAND 

2148 036124 012704 044170 MOV @T24PK3,R4 ;SET UP R4 WITH PACKET ADORESS 

2149 036130 65$: 

2150 036130 010300 MOV R3,RO ;SET PATTERN IN CORRECT REGISTER 

2151 036132 004737 017512 JSR PC, ,FILLMEM sFILL MEMORY WITH RECORD SIZE 

2152 036136 010337 044176 MOV R3,T24SZ sSET UP RECORD SIZE IN PACKET 

2153 036142 010465 000000 MOV R4, TSOB( PF > s ISSUE COMMAND 

2154 036146 004737 016340 JSR PC, ,WAITF sWAIT FOR SSR TO SET 

2155 036152 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

2156 036156 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED 

2157 036162 020102 CMP R1,R2 sARE THEY EQUAL 

2158 036164 001406 BEQ 75$ ;BR, IF OK 

2159 036166 005237 002212 INC FATFLG ;BUMP COUNT 

2163 036172 ERRHRD ERRNO,WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
036172 104456 TRAP CSERHRO 
036174 .WORD 420 
036176 005111 .WORD WRTERR 
036200 012136 .WORD PKTSSR 

2164 036202 75$: CKLOOP ;LOOP IF SELECTED 
036202 1 TRAP CSCLP1 

2165 036204 005723 TST (R3)- sBUMP RECORD SIZE 

2166 036206 022703 000414 CMP 9268. ,R3 sEND OF RECORD YET 

2167 036212 001346 BNE 65$ ;BR, IF MORE RECORDS TO WRITE 

2168 036214 80$: CKLOOP ;LOOP IF SELECTED 
036214 104406 TRAP CSCLPl 

2169 036216 120$: 

2170 

2171 PTitititiiiiiiiiiiitiiiiiititiiiiiititiitittitiiitititiitittittti itt) 

2172 } 


TSV7 - HARDWARE TESTS 1 
test 4: BASIC READ DATA FORWARD AND REVERSE ) 


; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


2173 


0137C1 
010102 
052702 
020102 
001406 
005237 


104456 
000646 


045043 
015564 


104406 


012703 
013737 


012737 


011104 


002212 


044070 
000002 


002212 


000400 
003114 


MACRO M1113 14-JUN-84 14:17 


044172 


SEQ 0142 


; 
F SSAAAASSHAASEARASSESASSEHSESHEEHEKSEHESEHEEEEEEHKEHEEEEHEASEEEEEEEESEEEE EE 


JSR PC ,REWIND 
BCS 130$ 

MOV RO,R1 

INC FATFLG 

ERRHRD ERRNO, T24RWN,EXPREC 


130$: CKLOOP 


sCALL TAPE REWIND COMMAND 
sB8R, IF NO PROBLEM 
sSAVE TSSR 
sBUMP COUNT 
; REWIND NOT ACCEPTED 
TRAP CSERHRO 


FSSSSAHHHSSSSSSSASSSHSEASEHSSSSASSESEHSESESSEEEHSSHEKEEEESEEESEEESESEEEASEEE 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
F FSSSSSSESHASSHHSHHKESHEASESEHSSHEASESASESHESSHEEHESESEESHSEESESEEHEEEEEEEEOED 


MOV T24BFR+6,R1 
R2 


MOV Ri, 

BIS #8IT1,R2 

CMP R1,R2 

BEQ 140% 

INC FATFLG 

ERRHRD ERRNO, T24B0T ,FXPREC 
140$: CKLOOP 


MOV #256. ,R3 
MOV FREE , T24RB 


J SSSSSSSSESHESESESSESSHSHSESEHESESSEHESEEESS EEEHEESSHESSEEESEHEHEESEESEEHEEEEESD 


;READ DATA, IE, ACK,SWB COMMAND 


; 
{ SSSESSESSSSSSSASSESESHSESESESHSESSSASSESHESSSESESESSESSSHSSESHESESHSHAESEEHESHEEEEE 


MOV #110001 , T24PK3 
165%: MOV @T24PK3,R4 

MOV R3,T24SZ 

MOV R4, TSOBCRS) 

JSR PC ,WAITF 

MOV TSSRCRS),R1 

MOV @SSR ,R2 

CMP R1,R2 

BEQ 170% 

INC FATFLG 

ERRHRD ERRNO,RDERR,PKTSSR 


. WORD 421 
. WORD T24RWN 
. WORD EXPREC 
;LCOP IF SELECTED 
TRAP CSCLP1 
sPICK UP xSTO 
;SET UP EXPECTED 
iSET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 
;BR, IF EQUAL (OK) 
;BUMP COUNT 
; TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 422 
. WORD T24B0T 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP C$CLP1 
sRECORD SIZE 
;STARTING READ BUFFER ADDRESS 
;READ DATA, IE,ACK,SWB COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
; ISSUE COMMAND 
;sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;BR, IF OK 
;BUMP COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 423 


- HARDWARE TESTS MACRO M1113 14-JUN-84 14:17 
test “4: BASIC READ DATA. (FORWARD AND REVERSE ) 

036364 005204 

036 012136 
2227 036370 170$: CKLOOP 

036370 1044 
2228 036372 013702 003114 MOV FREE ,R2 
2229 036376 010 MOV R3,R4 
2230 036400 162704 000400 SUB 0256. »R4 
2231 036404 060204 173%: ADD 2,R4 
2232 036406 021403 CMP (Ra) .R3 
2233 036410 001410 BEQ 180% 
2234 036412 011401 MOV (R4),R1 
2235 036414 01030, MOV 3,R2 
2236 036416 005237 002212 INC FATFLG 
2240 036422 ERRHRD ERRNO, T240TA,EXPREC 

036422 104456 

036424 000650 

036426 045110 

036430 015564 
2241 036432 180$: CKLOOP 

036432 104406 
2242 036434 005724 TST (R4)> 
2243 036436 1 SUB R2,R4 
2244 036440 020403 CMP R4,R3 
2245 036442 001360 BNE 173$ 
2246 036444 005723 TST C(R3)+ 
2247 036446 022703 000412 CMP #266., 
2248 036452 001322 BNE 165$ 
2249 036454 190$: CKLOOP 

036454 104406 
2250 036456 ENDSUB 

036456 

036456 10440 
2251 036460 023727 002212 000017 CMP FATFLG,@15. 
2 036466 1034 BLO 999% 
2253 036470 004737 017272 JSR PC, CKDROP 
2254 036474 999%: 
2255 
2256 i¢ 
2257 ; 
74 sTEST 4, SUBTEST 4 

; 

2260 ;VERIFIES THAT A READ FORWARD COMMAND READING A RECORD 
2261 sLONGER. THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
2262 sSTATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG 
2263 ;(RLL) BIT SET. 
2264 ; 
2265 ; 
2266 i 
2267 
22628 036474 BGNSUB 

036474 

036474 104402 
2269 036476 004737 046664 JSR PC, T24RT3 
2270 036502 004737 046530 JSR PC, T24REST 
8k] 035506 004737 046622 JSR PC, T24RT2 


{ FSSSHSESSEEEESSESHEESSEEEAEHEEEERESEESHEKSEEEEHESHEESEKASEHASESSEEHEDEES 


SEQ 0143 
-WORD RDERR 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 


;GET BUFFER ADDRESS 
sCURRENT RECORD SIZE 
sFIRST LOCATION IN BUFFER 
;GET LOCATION IN BUFFER (ADDRESS) 
;CHECK DATA READ (R3=DATA ALSO) 
;8R, IF ALL IS WELL 
sRECD DATA 
;EXPECTED DATA 

OUNT 


;BUMP C 
sDATA READ NOT = WRITTEN 
TRAP CSERHRD 


-WORD 424 
-WORD  T24DTA 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 
sBUMP TO NEXT LOCATION 
sSET SIZE TO CORREC) VALUE 
sEND OF RECORD YET 
BR, IF NOT AT END OF RECORD 
sBUMP RECORD SIZE 
sEND OF RECORD YET 
;BR, IF MORE RECORDS TO WRITE 
;LOOP IF SELECTED wees 


3>>>>>>>>>>>> END SUBTEST >->>>>>>>>>> 
L10055: 
TRAP 


IS ERROR COUNT AT 25 
3BR, IF LESS THAN 25 
;TRY TO OROP THE UNIT 


CsESUB 


3; >>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
74.4: 


TRAP C$BSUB 
;SET UP OTHER tage PACKET 
;SET COMMAND PACKE 
sSET UP OTHER COMMAND PACKET 


! 
' 
CsCLP1 
| 
| 
| 


TSV? - HAROWARE TESTS 1-8 
TEST 4: BASIC READ bara (FORWARD AND REVERSE 


036512 004737 016064 
036520 005237 002212 


036536 013737 002172 
036544 012704 044040 


036550 004737 010752 
036556 005237 002212 


MACRO M1113 = JUN- 84 14:17 


044060 


: 
sTSSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


JSR PC, SOF INIT s00 INITIALIZE ON CONTROLLER 

6CcS 203 s8R IF INIT WAS OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 ; CONTENTS OF TSSR REGISTER 

ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS - Ow 
Rae 
. WORD 
. WORD 
- WORD 


MOV UNITN, T240SW sSET ORIVE NUMBER IN PACKET 
MOV OT24PACKET ,R4 s SUBROUTINE NEEDS PACKET ADORESS 
jOCOCOOSSECESESEESEEEEEESSESEESEEESEEEEEEEOEESEEESESESESEOEEEESEOES 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
i eooonseseonosesososoosenesoeooosassoooensonsoneennsensene;eesencss 
JSR at ete sISSUE WRITE CHARACTERISTICS 
BCS :6R, IF COMMAND ISSUED OK 
INC Fate sBUMP COUNT 
MOV RO,R sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO, RTMSG , SFIMSG s;WRITE CHARACTERISTISC se 
. WORD 
. WORD 
. WORD 
24s: CxLOOP LOOP IF SELECTED 
TRAP 


§ SSSSSSSSHSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSSSSSSSSSSSSSSSSSESHESSSESSESEYE 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


é 
§ SSSHSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSEASSHSSSSESSEEEEE 


JSR PC ,REWIND sCALL TAPE ay A COMMANC 

BCS 308 sBR, IF NO PROBLEM 

MOV RO,R1 sSAVE TSSR 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T24RWN,PKTSSR sREWIND NOT ACCEPTED — 
. WORD 
. WORD 
. WORD 

30%: CKLOOP sLOOP IF SELECTED 

TRAP 


FSSSSSSSSSSSSSSSSSSSSSSSSSSSHSSSSHSSHSSSHSSHSESSSHHHSESSSSSSEHSSEHESHEEES 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


SEQ 9144 


CSEROF 
2s 


a 
SF IERR 
SF IMSG 


CsCiPi 


CSERHRO 
427 
T24RWN 
PKTSSR 


CsCLP1 


- HARDWARE 


TESTS 


1-8 


TSv? 
TEST “@: BASIC READ DATA (FORWARD 


013701 


104406 
012703 
013737 


MACRO M1113. 14-JUN-84 14:17 ‘ 
AND REVERSE ) EO 0165 


; 
FSSCSSSSHASSSSESSSSSSHSHSSHESHSEOEESEHHHESESEHSESHEHEESESCEESEEHEEESEEEEES 


044070 MOV T24BFR-6,R1 sPICK UP xSTO 
MOV R1,R2 sSET UP EXPECTED 
000002 BIS @BIT1,R2 sSET BOT BIT IN EXPECTED 
CMP R1,R2 sD0ES * REC'D 
BEQ 40% 1BR, IF EQUAL (OK) 
002212 INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, 124807 ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
. WORD 428 
-WORD 1T24B0T 
-WORD EXPREC 
403: CKLOOP ;LGOP IF SELECTED 
TRAP CSCLPi 
001000 MOV #512. ,R3 sRECORD SIZE 
003114 044172 MOV FREE , T24R8 sSTARTING WRITE BUFFER ADDRESS 
MITiiififtiiiiiitittifiiiiitiitiiiiiiiiitiiiiiiiiiiitiiittiit ttt 
3 
sWRITE DATA,ACK,CvVC=1 COMMAND 
Writiiiiitiiiiiiiiiitiititiiitiiititiiiiiiiiiiiiiititii tit ttiiittt 
140005 044170 MOV #140005 , T24PK3 sWRITE DATA,ACK,CVC=1 COMMAND 
044170 on MOV @T24PK3 ,R4 :SET UP R4 WITH PACKET ADORESS 
044176 MOV R3,724SZ sSET UP RECORD SIZE IN PACKET 
MOV R4, TSDBCRS ) sISSUE COMMAND 
016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 
000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
000200 MOV @SSR ,R2 3SET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 75% :6R, IF OK 
002212 INC FATFLG sBUMP COUNT 
ERRHRD ewe. WRIERR ,PKTSSR 3TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHMRD 
-WORD 429 
. WORD WRTERR 
. WORD PKTSSR 
75$: CKLOOP sLOO0P IF SELECTED 
TRAP CsCLPi 
1208: 
MItiiitiiiitiiititititiitiitiii tii iii iititii ttt iii iit) 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
$ 
Wrritiiititiiitiiitititiiiiitiiitiiiiiiitititiiiiititii iti ttt 
011104 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
6CcS 1308 38R, IF NO PROBLEM 
MOV sSAVE TSSR 
002212 INC 


FATFLG sBUMP COUNT 
ERRHRD ERRNO, T24RWN,PKTSSR sREWIND NOT ACCEPTED 
TRAP CSERHRO 


037124 


000656 
045326 
012136 


104406 


013701 
010102 


012703 
013737 


032737 


000400 
003114 


TSV7? - HARDWARE TESTS MACRO M1113 14 JUN 84 14;17 
TEST 4: BASIC READ bata * (FORWARD AND REVERSE ) 


044172 


044170 


130$: CKLOOP sLOOP IF SELECTED 
TRAP 


FPSSSHSSSSHSSHSSSSHSSSSHSEHESESSSEHESESSESSESSESHSSESEHSSESEROEHEHSEEEEEE 


; 
sREAD MESSAGE BUFFER FXTENDED STATUS REGISTER ZERO (xSTO) 


: 
J SOHHASHSSSHHSSSSSHHSSHSASSSSSSESESSSSSESSHSSSSSASESSESSHSSESESEESHSEHEEESE 


MOV T24BFR+6,R1 sPICK UP XSTO 

MOV R1,R2 sSET UP EXPECTED 

BIS @B1T1,R2 sSET BOT BIT IN EXPECTED 
CMP R1,R2 sO00ES EXP = REC'D 

BEQ 140% sBR, IF EQUAL (OK) 

I sBUMP C 


NC FATFLG OUNT 
ERRHRD ERRNO, T24B0T ,EXPREC TAPE NOT AT BOT AFTER ——_ 


140%: CKLOOP sLOOP IF SELECTED 


TRAP 
MOV 256. RS sRECORD SIZE 
MOV FREE , T24RB sSTARTING READ BUFFER ADDRESS 


F SSHRSSSSSSSHSSHASSSSSSSSSSSHSSSHSSSSESSESSHSSHESSSSSSHSSHESESHESSESHSAES 


;READ DATA,ACK,CVC=1 COMMAND 


; 
J SSSSSSSSSSSSSSSSSSSSSSSSSHSHSSSSSSHSHSSSHSOSHSESHSSSHEESEHSESEESEHE DE 


MOV #140001 , T24PK3 sREAD OATA,ACK,CVC=1 COMMAND 


165%: MOV OT24PK3,R4 sSET UP R4 WITH PACKET ADDRESS 
MOV R3, T24SZ sSET UP RECORD SIZE IN PACKET 
MOV R4, TSOBCRS) s ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 


MOV TSSRC(RS),R1 
MOV @SSR!SC!BIT2,R2 


sGET TSSR CONTENTS 
sSET UP EXPECTED 


CMP R1,R2 sARE THEY EQUAL 
BEQ 170% s6R, IF OK 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T24TRL ,PKTSSR sTSSR INCORRECT AFTER = 
. WORD 
. WORD 
. WORD 
170%: CKLOOP sLOOP IF SELECTED 
TRAP 


§ SSSSSSSESSSHESSSSHSSHSSESSSSSSSSSSSSSSSSHESSOHSSHSSESSSHHHESESESSEHEEES 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


é 
F FSSSSSSSSESSESSESHESESSSESSESSSEHHSEHHSESSHESSHSHSSSSEHSHSSHHEHESEHSEESEES 


SEQ 9146 


430 
T24RWN 
PKTSSP 


CSCLPi 


CSERHRD 
432 
T24TRL 
PKTSSR 


CsCLP1 





TSV7 - HARDWARE TESTS 
TEST 4: BASIC READ BATA (FORWARD AND REVERSE ) 


037126 
037132 
037134 
037140 
037142 
037144 
037150 


2446 037176 


037176 


037210 


037214 


013701 


002212 000017 
017272 


046664 
046530 


Flo 


1-8 MACRO M1113 14-JUN-84 14;17 SEQ 0147 
MOV T24BFR+6,R1 sGET MESSAGE BUFFER 
MOV R1,R2 3SET UP EXPECTED 
BIS #BIT12,R2 sSET THE RLi BIT IN EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 180% sB8R, IF EQUAL (ALL IS WELL) 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T24L0N,EXPREC 1 THE RLL BIT WAS NOT 7” IN xXSTO 
RAP — 
MORO 33 
- WORD T2aL0% 
-WORD EXPREC 
180$: 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10056: 
TRAP CsESuUB 
CMP FATFLG,@15. 31S ERROR COUNT AT 25 
BLO 999% ;BR, IF LESS THAN 25 
JSR PC ,CKDROP ;TRY TO OROP THE UNIT 
999%: 
3? 
sTEST 4, SUBTEST 5S 
a 
OATER THAT A READ FORWARD COMMAND READING A RECORD 
TER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
S STATUS ALERT TERMINATION WITH THE RECORD LENGTH SHORT 
sC(RLS) BITS SET. IT IS VERIFIED THAT THE RESIDUAL BYTE 
sCOUNT (RBPCR) IN THE MESSAGE BUFFER CONTAINS THE 
sPROPER NONZERO VALUE (E.G. THE DIFFERENCE BETWEEN 
3THE ORIGINAL BYTE COUNT AND THE ACTUAL RECORD 
sLENGTH). 
5 
3 
g= 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
74.5: 
TRAP Cs$BSUB 
JSR PC, T24RT3 sSET UP Aes ol COMMAND PACKET 
JSR PC, T24REST sSET COMMAND PACKET 
JSR PC, T24RT2 iSET UP OTHER COMMAND PACKET 


046622 


016064 
002212 


j PORSOEESEESEESEEESEESEEESEEESOEESEEDERESEEESEEEEEESEEESEEEEEEEEESS 
; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
F PSSSSHESSSSSSSSESHSSESSSSESSSHSSESSEHEHESESSSSSHESSHSSSAESHRSE SASHES SEESSESD 


JSR PC, SOFINIT 3:00 INITIALIZE x CONTROLLER 
BCS 20% s6R IF a WAS OK 

INC FATFLG A: ) 

MOV RO,R1 SCONTENTS OF TSSR REGISTER 


ERROF ERRNO, SFIERR, SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDOF 


TSV7 - HARDWARE 


037232 
037234 
037236 
2484 037240 
2485 037240 
2486 037246 


2494 037252 
2495 037256 
2496 037260 
2500 037264 
2501 037266 
037266 
037270 
037272 
037274 
2502 037276 
037276 


2519 037326 
2520 037332 


2531 037352 
2532 037356 


Br. 


TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEO 0148 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
000662 .WORD 434 
003650 "WORD SFIERR 
012124 a "WORD SF IMSG 
013737 002172 044060 "MOV UNITN, T240SW ;SET DRIVE NUMBER IN PACKET 
012704 044040 MOV @T24PACKET ,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 
FSSAOHSESAESHSSAESESSHESEHS SHEESH SEESEESEHHEEESEEHEHESEEESSESEEEOEEEEES 
; 
WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
; 
J SSHSHSSHSSSSESSSSSSHHSHSSHESSSESEEHESHESHEASESHSESESESEHSESASHSEESSEEHESEEEEEE 
004737 010752 JSR PC, WRTCHR :ISSUE WRITE CHARACTERISTICS 
103407 cs 24$ i8R, IF COMMAND ISSUED OK 
005237 002212 INC FATSLG ;BUMP COUNT 
010001 MOV RO, ;SAVE CONTENTS OF TSSR 
ERRHRD ERRN),WRTMSG, SFIMSG }WRITE CHARACTERISTISC FAILED 
104456 TRAP — CSERHRD 
000663 .WORD 435 
005054 “WORD wWRTMSG 
012124 “wORD SF IMSG 
24%:  CKLOOP ;LOOP IF SELECTED 
104406 TRAP —- CSCLP1 
{ SSSASHESSSSHSSESSSHESSSHESSSESHSSSSSHESEEHSHEHSAESSHESSEHSHSESEEESESEEES 
H 
ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
WEVTTTTITTTTTTTTTTTTTTTITITITITITTTITITITITITITTL TTT TTT TTT TTT ete 
004737 011104 JSR PC, REWIND ;CALL TAPE REWIND COMMAND 
103407 BCS 308 ;8R, IF NO PROBLEM 
010001 MOV RO,R1 ;SAVE TSSR 
005237 002212 INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T24RWN,PKTSSR tREWIND NOT ACCEPTED 
104456 TRAP —« CSERHRD 
000664 WORD 436 
045326 "WORD -T24RWN 
012136 "WORD -PKTSSR 
30$:  CKLUOP ;LOOP IF SELECTED 
104406 TRAP —s- C$CLP1L 
012703 000400 MOV 0256. .R3 ;RECORD SIZE 
013737 003114 044172 MOV FREE , T24RB ;STARTING WRITE BUFFER ADDRESS 
{ PSSSESSSSEESEASSSSSSESSESESHSHSASAEHESESSESAEESESEEASHEHESESESEEEEEEESE 
;WRITE DATA,ACK,CVC=1 COMMAND 
a 
J PSSSHSSSSESESESEASSSESSSSSSSSESHKESSHSESESSSEASHEHESHHESSESSESEEAEKERESES 
012737 140005 044170 MOV #140005, T24PK3 ;WRITE DATA,ACK,CVC=1 COMMAND 
012704 044170 van MOV O724PK3_R4 SET UP R4 WITH PACKET ADDRESS 
33: 
010337 044176 MOV R3, 72452 ;SET UP RECORD SIZE IN PACKET 
010465 000000 MOV R4‘TSDBCRS) ;ISSUE COMMAND 
004737 016340 JSR PC! WAITF }WAIT FOR SSR TO SET 


2533 037362 


- HARDWARE TESTS 


test “4: BASIC 


2534 037366 
2535 037372 
2536 037376 
2537 037400 
2538 037402 
2542 037406 
037406 
037410 
037412 
037414 
2543 037416 
037416 
2544 037420 


000002 
000200 


002212 


75%: 
1208: 


—Gle 


MACRO M1113 14-JUN-84 14:17 
READ DATA’ (FORWARD AND REVERSE ) 


MOV TSSRCRS),R1 
MOV @SSR ,R2 

CMP R1,R2 

BEQ 75% 


G 
ERRHRD ERRNO,WRTERR,PKTSSR 


CKLOOP 


sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 


s6R, IF OK 
sBUMP COUNT 
sTSSR INCORRECT AFTER on * DATA 
THORO 
- WORD 
. WORD 
;LOOP IF SELECTED 
TRAP 


J SSSSSSESSSASSSSHSSSESSSSSSSSSEEHAEHSSSSSESSHESSHEHSESHESESSEEEEHEHHEEKESEES 


;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


‘ 
F FSS OKESEEEEESEEAEEEESESESESOESESESSESESESSESESESEHEESSEESEEESHSEEEEEEEES 


004737 
103407 
010001 
005237 


104456 
000666 
045326 
012136 
104406 


012703 
013737 


011104 


002212 


001000 


003114 044172 


JSR PC ,REWIND 

BCS 130% 

MOV RO,R1 

INC FATFLG 

ERRHRD ERRNO, T24RWN,PKTSSR 
CKLOOP 

MOV #512. ,R3 

MOV FREE , T24RB 


sCALL TAPE REWIND COMMAND 
3;BR, IF NO PROBLEM 


s;LOOP IF SELECTED 


sRECORD SIZ 
s STARTING READ BUFFER ADDRESS 


F FSSSSSSSSSSHHKSAESSESSSSAHHESSASESSSSHSHSESAASSSESSESESSEHEEHESAREEEEEEE 


;READ DATA,ACK,CVC=1 COMMAND 


a 
J FSSOSSSSSSSSSSSSHHSSSESSESESHEHSESHESHESSSSSESSSESSHSESSHESEHEESEEESEEE 


roy thd 044170 


165$: 


170$; 


MOV #140001 , T24PK3 
MOV @T24PK3 ,R4 

MOV 3, 724SZ 

MOV R4, TSOBCRS) 

JSR »WAITF 

MOV TSSRCRS),R 

MOV eSsnisci6r12, R2 
CMP R1,R2 

BEQ 170% 


INC FATFLG 
ERRHRD ERRNO, T24TRL,EXPREC 


CKLOOP 


sREAD DATA, ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 


;BR, IF OK 
;BUMP COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP 
. WORD 
. WORD 
. WORD 
;LOOP IF SELECTED 
TRAP 


SEG 9149 


CSCLP1 


CSCLP1i 


CSCLP1 


+ l c : 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14;17 SEQ@ 0150 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE ) 
2585 
2586 POUT U TIT IT iti itiiiiiiititiititiiiititiiiitiiiiiitiiiitiiiti iit) 
2587 3 
2588 ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
589 3 
od PITTI Tittitiitiiiiitititiiitiiiitiiiiitiiiiitiiiiiiiiititiitititty 
2591 
2592 037540 013701 044070 MOV T24BFR+6,R1 sGET MESSAGE BUFFER 
2593 037544 010102 MOV »R2 sSET UP EXPECTED 
2594 C37546 052702 040000 BIS @BIT14,R2 ;SET THE RLS BIT IN EXPECTED 
2595 037552 020102 CMP R1,R2 ;ARE THEY EQUAL 
96 037554 001406 BEQ 180$ 3sBR, IF EQUAL CALL IS WELL) 
2597 037556 005237 002212 INC FATFLG sBUMP COUNT 
2601 037562 ERRHRD ERRNO, T24L0P,EXPREC ;THE RLL BIT WAS NOT SET IN XxSTO 
037562 104456 TRAP CSERHRD 
037564 000670 . WORD 440 
037566 046224 . WORD T24L0P 
037570 015564 - WORD EXPREC 
2602 037572 180$: 
2603 037572 013701 044066 MOV T24BFR+4,R1 sPICK UP RESIDUAL BYTE COUNTER 
2604 037576 012702 000400 MOV 256. ,R2 sTHIS SHOULD BE THE DIFFERENCE 
2605 037602 020102 CMP R1,R2 sIS THE DIFFERENCE CORRECT 
037604 001406 BEQ 190% ;BR, IF CORRECT 
2607 037606 005237 002212 INC FATFLG sBUMP COUNT 
2611 037612 ERRHRD ERRNO, 124PBP ,EXPREC sRBPCR NOT CORRECT 
037612 104456 TRAP CSERHRO 
037614 000671 . WORD 441 
037616 046306 WORD T24PBP 
037620 015564 WORD EXPREC 
2612 037622 190$: CKLOOP ;LOOP IF SELECTED 
037622 104406 TRAP CSCLP1 
2613 037624 ENODSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
037624 L10057: 
037624 TRAP CsESuUB 
2614 037626 023727 002212 000017 CMP FATFLG,@15. :IS ERROR COUNT AT 25 
2615 037634 103402 BLO 999% :BR, IF LESS THAN 25 
2616 037636 004737 017272 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
2617 037642 _ 999%: 
2618 
2619 3° 
2620 : 
aore sTEST 4, SUBTEST 6 
3 
2623 sO SEAATES THAT READ REVERSE COMMANDS WITH SWB=0 
2624 ATES RLY. THE TAPE IS FIRST REWOUND AND THEN 
2625 S WRITTEN WITH A SERIES OF TEST RECORDS VARING IN 
2626 sLENGTH AND ye CONTENT. THE TAPE IS THEN READ IN REVERSE 
2627 sSEQUENTIALLY AND THE RESULTS 
2628 s(STATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON 
2629 sEACH READ REV VER SE COMMAND IS SET TO THE LENGTH OF THE 
2630 sEXPECTED RECORD, SO NO EXCEPTIONAL COADITIONS SHOULD 
2631 ;OCCUR 
26 3 
2633 ; 
2634 ; 
263 :- 


5 
2636 037642 


BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


TSV7 - HARDWARE TESTS 1-8 
READ DATA (FORWARD AND REVERSE ) 


TEST 4: BASIC 


037642 
037642 
2637 037644 
2638 037650 
2639 037654 


2647 037660 
2648 037664 
2649 037666 
2653 037672 
2654 037674 
037674 
037676 
037700 
037702 
2655 037704 
2656 037704 
2657 037712 


2665 037716 
2666 037722 
2667 037724 
2671 037730 
2672 037732 
037732 
037734 
037736 
037740 
2673 037742 
037742 


104402 
004737 
004737 
004737 


013737 
012704 


012124 
104406 


046664 
046530 
046622 


016064 
002212 


002172 
044040 


01¢0752 
002212 


011104 


002212 


Ll. 


MACRO M1113 14-JUN-84 14:17 


JSR PC, T24RTS 
JSR PC, T24REST 
JSR PC, T24RT2 


14.6: 

TRAP 
sSET UP OTHER COMMAND PACKET 
sSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 


F FSARAAAASASHHASSSESHHESSHAESEREKEESEEARSSESESESESEEEEESEEEHEAEEEEEEEREED 


;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


. 
FRESSAAAHASSEASSEASASEASESEEAKEHAEEEEEEEHEEESESERESHASCESESEEEHEEEEEEEE 


JSR PC, SOF INIT 
20$ 


BCS 
INC FATFLG 
MOV RO,R1 
ERROF ERRNO, SFIERR, SF IMSG 
203: 
044060 MOV UNITN, T240SW 


MOV @T24PACKET ,R4 


300 INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

;BUMP COUNT 

;CONTENTS OF TSSR REGISTER 

;FATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
. WORD 
. WORD 


;SET ORIVE NUMBER IN PACKET 


; SUBROUTINE NEEDS PACKET ADDRESS 


F SSHSASSHASSSAESESSSHSSHEHEAESESESEAEEESEEHESESEESSESEEASESAELSEESEAESESEES 


; 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


. 
F SSSSSSSSSSSSEHHSSSSHSEHSSESSSSEHSHSEHEESHEESSASSESHESESHESEEHEAESEESAEEEEESSD 


JSR PC,WRICHR 


BCS 24% 

INC FATFLG 

MOV RO,R1 

ERRHRD ERRNO, WRTMSG, SF IMSG 


24%: CKLOOP 


s ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
sBUMP COUNT 

sSAVE CONTENTS OF TSSR 

;WRITE CHARACTERISTISC en oy 


;LOOP IF SELECTED 
TRAP 


fF SSSEASESSSSESESEESSESESSESSSESASESEASSEHESEHESESSESSESSESEESAHEESHEESEESD 


; 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


a 
FSSSEASESESSHSSHESSESSHESSSHESEESOSEHESSESAESESSEESEHESSEHESEASSEEEAEEEE 


JSR PC ,REWIND 
30% 


MOV RO,R1 
INC FATFLG 
ERRHRD ERRNO, T24RWN,PKTSSR 


;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 


;SAVE TSSR 

;BUMP COUNT 

;REWIND NOT ACCEPTED 
TRAP 
. WORD 
. WORD 


SEQ 0151 


C$B6SUB 


CsEROF 
ah 

SFIERR 
SF IMSG 


CSERHRD 
443 
WRTMSG 
SFIMSG 


CSCLP1 


CSERHRD 
aaa 
T24RWN 


——-__— — —_ } 


TSV7 - HARDWARE TESTS 1-8 
TEST 4: 


2689 


BASIC 


037766 
037770 
037770 
037772 
037776 


012136 


104406 
012703 000400 
013737 003114 044172 


30$: 


MACRO M1113 14-JUN-84 14:17 
READ DATA (FORWARD AND REVERSE ) 


CKLOOP 


MOV 0256. ,R3 
MOV FREE, T24RB 


SEQ 0152 


. WORD PKTSSR 
TRAP C$CLPi 


;LOOP IF SELECTED 


sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


FRSSAASSHSHKAHASHESSEEAEEREREEAAEEEEEEERESEAEEESESEEEEEEEEEEEEEEREEREOE 


;WRITE DATA,ACK,CVC=1 COMMAND 


. 
{PPAASESERARAAEAERAREHAEHESEAEEERESAAEESAEREEAEASEEEEEEEHRESEESESEEESEEEES 


012737 140005 044170 
012704 044170 658 


004737 017512 
010337 044176 
000000 


75$: 


022703 000414 


8C0$: 
104406 
005743 
013737 003114 044172 


MOV #140005, T24PK3 
MOV @T24PK3 ,R4 
MOV R3,RO 


JSR PC, .FILLMEM 


INC FATFLG 
ERRHRD ERRNO, WPTERR,PKTSSR 


CKiOOP 

TST (R3)-+ 
CMP #268. ,R3 
BNE 65% 
CKLOOP 

TST -(R3) 


MOV FREE , T24RB 


sWRITE DATA,ACK,CVC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 


sSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

s;ARE THEY EQUAL 


;BR, IF OK 

;BUMP COUNT 

;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 445 
.WORD WRTERR 
.WORD PKTSSR 


;LOOP IF SELECTED 


s;BUMP RECORD SIZE 
sEND OF RECORD YET 
sBR, IF MORE RECORDS TO WRITE 
;LOOP IF SELECTED 
TRAP CsCLP1 


;SET BACK TO 512. 
s;STARTING READ BUFFER ADDRESS 


TRAP CsCLP1 


f FSASASSASSASASESAS SESSA SESEESEHSHEKEREKESEHESESSESHEHESEEHEEEESSESEES 


;READ REVERSE DATA,ACK COMMAND 


° 
fF PRERERESEEHAESESEEREROESESSEEASESAESESEASAESESESSEEEESHSSESSESEEESESEES 


012737 100401 044170 
012704 044170 165$: 


005237 002212 


MOV #100401, T24PK3 
MOV @T24PK3 ,R4 
MOV R3, T24SZ 
MOV R4, TSDBCRS) 
PC ,WAITF 


JSR C,WAI 

MOV TSSRCRS),R1 
MOV @SSR ,R2 
CMP Ri ,R2 

BEQ 170% 


INC FATFLG 
ERRHRD ERRNO, T24W0C,PKTSSR 


;READ REVERSE DATA,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORC SIZE IN PACKET 
s ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 

;6R, IF OK 

sBUMP COUNT 

;TSSR INCORRECT AFTER READ DATA 


Ke 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 0153 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE ) 

040162 104456 TRAP CSERHRD 
040164 000676 . WORD 446 
040166 045656 . WORD T24WDC 
040170 012136 . WORD PKTSSR 

2744 040172 170$: CKLOOP ;LCOP IF SELECTED 
040172 104406 TRAP CSCLP1 

2745 040174 013702 003114 MOV FREE ,R2 ;GET BUFFER ADDRESS 

2746 040200 010304 MOV R3,R4 sCURRENT RECORD SIZE 

2747 040202 162704 000400 SUB $256. ,R4 sFIRST LOCATION IN BUFFER 

2748 040206 060204 173$: ADD R2,R4 :SET POINTER TO FRAME (WORD) 

2749 04021° 921403 CMP (R4),R3 sCHECK DATA READ (R3=DATA ALSO) 

2750 040212 001410 BEQ 180$ sBR, IF ALL IS WELL 

2751 040214 011401 MOV CR4),R1 sRECO DATA 

2752 040216 010302 MOV R3,R2 sEXPECTED DATA 

2753 040220 005237 002212 INC FATFLG ;BUMP COUNT 

2757 040224 ERRHRD ERRNO, T24DTA,EXPREC sDATA READ NOT = WRITTEN 
040224 104456 TRAP CSERHRD 
040226 000677 - WORD 447 
040230 045110 . WORD T24DTA 
040232 015564 . WORD EXPREC 

2758 040234 180$: CKLOOP ;LOOP IF SELECTED 
040234 104406 TRAP CSCLP1 

2759 040236 005724 TST (R4)- ;BUMP TO NEXT LOCATION 

2760 040240 160204 SUB R2,R4 ;GET RIO OF BASE ADDRESS 

2761 040242 020403 CMP R4,R3 sEND OF RECORD YET 

2762 040244 001360 BNE 173% ;68R, IF NOT AT END OF RECORD 

2763 040246 005743 TST -(R3) sBUMP RECORD SIZE 

2764 040250 022703 000400 CMP 9256. .R3 sEND OF RECORD YET 

2765 040254 001322 BNE 165$ ;BR, IF MORE RECORDS TO WRITE 

2766 040256 190$: CKLOOP ;LOOP IF SELECTED 
640256 104406 TRAP CS$CLP1 

2767 040260 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
040260 L10060: 
040260 104403 TRAP CsESUB 

2768 040262 023727 002212 000017 CMP FATFLG,#@15. ;IS ERROR COUNT AT 25 

2769 040270 103402 BLO 999% :BR, IF LESS THAN 25 

2770 040272 004737 017272 JSR PC ,CKDROP sTRY TO OROP THE UNIT 

2771 040276 999%: 

2772 

2773 3° 

2774 j 

Shy sTEST 4, SUBTEST 7 

o 

2777 ;VERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND THE 

2778 sSWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST 

2779 sSEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 

hay ;THE RESULTS, EXCE®T FOR RAM CONTENTS, SHOULD BE THE SAME. 

2782 ; 

2783 : 

2784 g° 

2785 040276 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
040276 74.7: 
040276 104402 TRAP C$BSUB8 

2786 040300 004737 046664 JSR PC, T24RT3 :SET UP OTHER COMMAND PACKET 

2787 040304 004737 046530 JSR PC, T24REST ;SET COMMAND PACKET 

2788 040310 004737 046622 JSR PC, T24RT2 ;SET UP OTHER COMMAND PACKET 


TSV7 - HARDWARE TESTS 


2769 
2790 
2791 
2792 
2793 


012124 


013737 
012704 


004737 
103407 
005237 
010001 


104456 
000701 


005054 
012124 
104406 


004737 
103407 
010001 
005237 


104456 
000702 
045326 
012136 


104406 
012703 
013737 


1-8 MACRO M1113 14-JUN-84 14:17 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE ) 


016064 
002212 


002172 044060 
044040 


010752 
002212 


011104 


002212 


000400 
003114 044172 


ITIP irri rrrrrrriiiiiiiitiiiititiiiitiiiirii tii i) 
; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
WITTTTTTTITTTITITTTTETITITITTL TTT TIT TT TTT TTT TTT TTT TT TTT Tee 


JSR PC, SOF INIT s00 INITIALIZE x CONTROLLER 


BCS 20% ;6R IF INIT WAS OK 

INC FATFLG ;BUMP COUNT 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP 
- WORD 
. WORD 
. WORD 


208: 
MOV UNITN, T240SW 
MOV @T24PACKET ,R4 


sSET DRIVE NUMBER IN PACKET 


{ SSHMSSSASSEASSSSSESSSESHSHSSHSHSSSHEASESEAEEHEEHEEEEESEEAEHEOHESEEEESEEEEEE 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
J PASASSSSSASSSSSHSSSHSSESHOHSHESSESSEASSSHSEHHESSHESESHEESEEEESEEESEEEE 


JSR PC ,WRTCHR s ISSUE WRITE CHARACTERISTICS 


BCS 243 ;BR, IF COMMAND ISSUED OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 s;SAVE CONTENTS OF TSSR 

ERRHRD ERRNO, WRTMSG , SF IMSG ;WRITE CHARACTERISTISC 4+ 
- WORD 
. WORD 
. WORD 

24%: CKLOOP ;LOOP IF SELECTED 

TRAP 


F SSSSSSSSSAASSSSSSESHASESEHSEHHSSEESHEEEHSSESEKESHAEESHSESEEESEEEEHEEEEED 


; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


A 
SESS KERKAKERHSHKARESAEREAREAEHHRERKEKEEKRAEHEEAEHRERERSEHR AH KRARKHRERRE ORE 


JSR PC ,REWIND sCALL TAPE REWIND COMMAND 


BCS 30% BR, IF NO PROBLEM 

MOV RO,R1 sSAVE TSSR 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T24RWN,PKTSSR ; REWIND NOT ACCEPTED es 
. WORD 
. WORD 
. WORD 

30$: CKLOOP ;LOOP IF SELECTED enon 
MOV #256. ,R3 sRECORD SIZE 


MOV FREE , T24RB sSTARTING WRITE BUFFER ADDRESS 


s SUBROUTINE NEEDS PACKET ADORESS 


SEQ 0154 


CSEROF 
448 

SFIERR 
SF IMSG 


CsCLPl 


CSERHRD 
450 
T24RWN 
PKTSSR 


CSCLP1 


7 - HARDWARE TESTS 1 
test 4: BASIC READ DATA (FORWARD AND REVERSE ) 


2893 


012737 
012704 


104406 
005743 
013737 


012737 


-8 


150005 
044170 


017512 
044176 
000000 


000414 


003114 


MACRO M1113 


044170 


044172 


044170 


Mie 


14-JUN-84 14:17 


J SSSSAASSESAEHAHESSHSEESEAEHSSEEEEHEEHEEEHEESEEHEEEEHESHEKEEHEREEEEEE EERE 


;WRITE DATA,ACK,CVC#1,SWB COMMAND 


3 
F SSSHSHASSSHSSSSASESSEASEHEHHASESHEASHEEESSEESEKAEEEEEKEHEEEEEEESEEEEEEE 


MOV #150005 , T24PK3 
MOV OT24PK3 ,R4 


MOV R3,RO 

JSR PC,FILLMEM 
MOV R3,T24SZ 
MOV R4, TSOBCRS ) 
JSR PC ,WAITF 
MOV TSSRCRS),R1 
MOV @SSR ,R2 


65$: 


BEQ 75$ 
INC FATFLG 
ERRHRD ERRNO, WRTERR,PKTSSR 


7S$: CKLOOP 


TST (R3)+ 
CMP $268. ,R3 
BNE 65% 

80$ CKLOOP 
TST -(R3) 


MOV FREE , T24RB 


{ SSSSSSHSSEHSSHHSHESE  SHESEHSSSSHHKSESHASESSEHEEEHESEEHSESEHESHEHEHEASHEEEEEEEE 


;READ REVERSE DATA, ACK,SWB COMMAND 


i 
F SSSSESESSSSSSHHESESSSESHSSSHSESHSSEESSESESSEESSEHESHSESESEHEHESHEAEEESEEEEEEED 


MOV #110401, T24PK3 
165$: MOV @T24PK3,R4 


MOV TSSR(RS),R1 

MOV @SSR ,R2 

CMP R1,R2 

BEQ 170% 

INC FATFLG 

ERRHRD ERRNO, T24WOC ,EXPREC 


170%: | CKLOOP 





SEQ@ 0155 

sWRITE DATA,ACK,CVC=1,SwW8 COMMAND 

;SET UP R4 WITH PACKET ADDRESS 

;SET PATTERN IN CORRECT REGISTER 

sFILL MEMORY WITH RECORD SIZE 

sSET UP RECORD SIZE IN PACKET 

s; ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

s;SET UP EXPECTED 

s;ARE THEY EQUAL 

sBR, IF ae 

BUMP C 

;TSSR TNCORRECT AFTER ag DATA 

CSERHRD 

THORO 451 
-WORD  WRTERR 
-WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 

sBUMP RECORD SIZE 

sEND OF RECORD YET 

;BR, IF MORE RECORDS TO WRITE 

;LOOP IF SELECTED 
TRAP CsCLP1 

sSET RECORD SIZE BACK TO Si2. 

sSTARTING READ BUFFER ADDRESS 

sREAD REVERSE DATA,ACK,SWB COMMAND 

;SET UP R4 WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 

;BUMP COUNT 

;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORDB 452 
.WORDB  T24WDOC 
-WORD  EXPREC 


;LOOP IF SELECTED 





tae 


SEQ 0156 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 
TEST “4: BASIC READ DATA (FORWARD AND REVERSE ) 
040626 104406 TRAP CSCLP1 
2894 040630 013702 003114 MOV FREE ,R2 :GET BUFFER ADDRESS 
2895 040634 010304 MOV R3,R4 sCURRENT RECORD SIZE 
2896 040636 162704 000400 SUB 0256. ,R4 sFIRST LOCATION IN BUFFER 
2897 040642 060204 173$: ADD R2,R4 sSET POINTER TO FRAME (WORD) 
2898 040644 021403 CMP CR4),R3 sCHECK DATA READ (R3=DATA ALSO) 
2899 040646 001410 BEQ 180$ ;B8R, IF ALL IS WELL 
2900 040650 011401 MOV (R4),R1 sRECD DATA 
2901 940652 01030 MOV R3,R2 sEXPECTED DATA 
2902 040654 005237 002212 INC FATFLG :BUMP COUNT 
2906 040660 ERRHRD ERRNO, T24DTA,EXPREC ;DATA READ NOT = WRITTEN 
040660 104456 TRAP CSERHRD 
040662 000705 -WORD 453 
040664 045110 . WORD T24DTA 
040666 015564 -WORD EXPREC 
2907 040670 180$: CKLOOP ;LOOP IF SELECTED 
040670 104406 TRAP C$CLP1 
2908 040672 005724 TST (R4)>+ ;BUMP TO NEXT LOCATION 
2909 040674 160204 SUB R2,R4 ;GET RIO OF BASE ADDRESS 
2910 040676 020403 CMP R4,R3 sEND OF RECORD YET 
2911 040700 001360 BNE 173% ;8R, IF NOT AT END OF RECORD 
2912 040702 005743 TST -(R3) sBUMP RECORD SIZE 
2913 040704 022703 000400 CMP 0256. ,.RS ;END OF RECORD YET 
2914 040710 001322 BNE 165$ ;BR, IF MORE RECORDS TO WRITE 
2915 040712 190$: CKLOOP ;LOOP IF SELECTED 
040712 104406 TRAP CSCLP1 
2916 040714 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
040714 L10061: 
040714 10440 TRAP CsESUB 
2917 040716 023727 002212 000017 CMP FATFLG,#@15. :IS ERROR COUNT AT 25 
2918 040724 10340, BLO 999$ ;BR, IF LESS THAN 25 
2919 040726 004737 017272 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
2920 040732 999%: 
2921 3+ 
2922 3 
Bae ;TEST 4, SUBTEST 8 
; 
2925 ;VERIFIES THAT A READ REVERSE COMMAND READING A RECORD 
2926 ;LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
2927 ;STATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG 
2928 s(RLL) BIT SET. 
2929 3 
2930 : 
2931 37 
2932 
2933 040732 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
040732 74.8: 
040732 104402 TRAP C$8SUB 
2934 040734 004737 046664 JSR PC, T24RT3 ;SET UP OTHER COMMAND PACKET 
2935 040749 004737 046530 JSR PC, T24REST ;SET COMMAND PACKET 
bee 040744 004737 046622 JSR PC, T24RT2 :SET UP OTHER COMMAND PACKET 
2938 FPRSEAEAAEAREESSERESEESESESEESEASEREHRESEREEEEEEEASEAEEEEEEEEEEERED EERE 
2939 ; 
coer ;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
1 ; 
2942 POSSESS EEEEESEEESEREEEEEEEESEESEEEESEEEEEEEEEEEEEEEEEREEREEEEERED 


003650 
040772 012124 


2952 
2953 040774 013737 
2954 041002 012704 


041026 005054 
041030 012124 
2970 041032 


041032 104406 


041064 104406 
2968 041066 012703 
2969 041072 013737 


0160€* 
00221¢ 


002172 
044040 


010752 
002212 


011104 
016426 


002212 


001000 
003114 


B12 


TSV7? - HARDWARE TESTS MACRO M1115 14-JUN-84 14:17 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE ) 


044060 


044172 


JSR PC, SOF INIT 100 INITIALIZE ON CONTROLLER 

BcsS 20% s6R IF INIT WAS OF 

INC FATFLG sBUMP COUNT 

MOV RO,R1 S CONTENTS OF TSSR REGISTER 

ERRDF ERRNO, SFIERR, SF IMSG sFATAL ERROR TSSR WAS vag * 
. WORD 
. WORD 
. WORD 


MOV UNITN, T240SW 
MOV @T24PACKET ,R4 


; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


é 
FSSSSSSNSS SESE SHSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSHOSSSSSSSESESESSSEEE 


sSET ORIVE NUMBER IN PACKET 


JSR PC ,.WRTCHR os WRITE CHARACTERISTICS 

6csS 24% IF COMMAND ISSUED Ok 

INC FATFLG ;BUNP COUNT 

MOV RO,R1 sSAYE CONTENTS OF TSSR 

ERRHRD ERRNO, WRITMSG, SF IMSG ;WRITE CHARACTERISTISC 4" » 
. WORD 
. WORD 
- WORD 

243: CKLOOP sLOOP IF SELECTED 

TRAP 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


JSR PC ,REWIND sCALL TAPE REWIND COMMAND 

JSR PC ,.CHKTSSR sSEE HOW TSSR IS 

BCS 30% sBR, NO PROBLEM 

MOV RO,R1 sSAVE TSSR 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T24RWN,PKTSSR sREWIND NOT ACCEPTED - 
. WORD 
. WORD 
. WORD 

30%: CKLOOP sLOOP IF SELECTED — 
MOV #512. ,R3 sRECORD SIZE 
MOV FREE , T24RB sSTARTING WRITE BUFFER ADDRESS 


§ SSSSSESESESSSESSSSSESSSSSSSSHSSSSHSSHSSSSHSSEHESSHSSSSHSSSSSSEKASHKSSESESE 


; 
sWRITE DATA,ACK,CVC*1 COMMANDO 
; 


s SUBROUTINE NEEDS PACKET ADDRESS 


SEG 9157 


CSEROF 
454 

SFIERR 
SF IMSG 


CSCLP1 


CscLPl 





2997 041100 012737 
2998 041106 012704 


3000 041112 010337 
010465 


041156 104406 
3013 041160 012703 
3014 041164 013737 


3044 041252 013701 


mete 
044170 


044176 
000000 
016340 
000002 
000200 


002212 


000400 
003114 


044070 
010000 


TSV7? - HARDWARE 7 MACRO ee * JUN-84 14:17 
TEST “4: BASIC READ "Sata * (FORWARD AND REVER 


FSSSSSSSSSSSSSASSSSSSSESASHSHSHESEHSSESEHSSSHESESESHSEHAEOSESHEEESOEES 


044170 


044172 


044170 


65$: 


INC FATFLG 
ERRHRD ERRNO,WRTERR,PKTSSR 


758: CkKLOOP 


MOV 
MOV 


#140005, T24PK3 


OT24PKS,R4 


R3,T24SZ 
R4, TSOBC(RS) 


»WAITF 
TSSR(RS),R1 
@SSR ,R2 
R1,R2 
75% 


0256. .R3 
FREE , T24RB 


SEQ 9158 
sWRITE DATA,ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
sISSUE COMMAND 
sWwAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
;ARE THEY E 
sBR, IF OK 
sBUMP COUNT 
:TSSR INCORRECT AFTER WRITE DATA 
TRAP CS8ERHROD 
-WORD 457 
. WORD WRTERR 
WORD PKTSSR 


sLOOP IF SELECTED 


TRAP CsCL Py 
sSIZE OF RECORD 
sSTARTING READ BUFFER ADORESS 


3 
sREAD DATA,ACK COMMAND 


‘ 
F SSSSSSHSSSSSSSSSSSSSSSSSSSSHSSSHKSSHSSSSSSSSSESSSESSSHSHSEESHSSESEEEEEE 


MOV 
165$: MOV 


170%: CKLOOP 


#100401 , T24PK3 
24PK3 ,R4 


aeiaceral Ri 


FLG 
ERRHROD ERRNO. T24TRL ,EXPREC 


sREAD DATA,ACK COMMAND 

sSET UP R4 WITH PACKET ADORESS 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 


:6R, IF 

sBUMP COUNT 

;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
.WORD 456 
. WORD T24TRL 
.WORD EXPREC 


sLOOP IF SELECTED 
TRAP CsC.P 1 


§ SSHSSSSSSNSOSSSHESSSSHSSSSSSSSSSSSSHSSSSSSSSSSSSHSESSESHSHSHSESESESHEEES 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


5 
£ SSSSSSSSSSSSSSSHESSSSHSSSSSSSHESSSSSHSSSSSSSSSSSSSSSSSSSSESSHSASSOSSEES 


T24BFR6 Ri 
1,R2 


Ri, 
#BIT12,R2 
R1,R2 


sGET MESSAGE BLFFER (xSTO) 
sSET UP EXPECTED 
1SET THE RLL BIT IN EXPECTED 
sARE THEY EQUAL 


TSV7 - HARDWARE TESTS 
TEST 4: BASIC READ DATA. (FORWARD AND REVERSE ) 


041266 001406 
041270 005237 


041274 104456 
041276 000715 
041300 046142 
041302 015564 


0413504 104406 
041306 104403 
041310 023727 


041316 103402 
041320 004737 


041376 012124 


041400 013737 
041406 012704 


002212 


002212 000017 


017272 


003126 
042010 
046664 


046530 
046622 


016064 
002212 


002172 
044040 


MACRO M1113 14-JUN-84 14:17 SEQ 9159 
BEG 180% sBR, IF EQUAL (ALL IS WELL ) 
I FATFLG sBUMP COUNT 
ERRHRD ERRNO, T24L0N,EXPREC ; THE RLL BIT WAS NOT SET IN xSTO 
TRAP C $ERHRD 
-WORD 459 
-WORD T24L0N 
-WORD EXPREC 
1808: CKLOOP 
TRAP CSCLPi 
ENDSUB 3>>>>>>>>>>>> END SUBTEST »>>>>>>>>>>r>> 
L10062: 
TRAP CSESUB 
CMP FATFLG,@15. sIS ERROR COUNT AT 25 
BLO 999% sBR, IF LESS THAN 25 
JSR PC ,CKDROP sTRY TO DROP THE UNIT 
999%: 
3° 
: 
;TEST 4, SUBTEST 9 
a 
;VERIFIES THAT A READ REVERSE COMMAND SPECIFYING A DATA 
sBUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH 
;THE PROPER ERROR STATUS WITHOUT MOVING TAPE 
:- 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>»>>>> 
74.9: 
TRAP CsBSuUB8 
TST NXMF LG 300 WE HAVE IT? 
BNE 10% ;BR, IF ENOUGH 
JP 160% sSKIP THIS TEST IF NOT 
10$: JSR PC, T24RTS ;SET UP OTHER COMMAND PACKET 
JSR PC, T24REST sSET COMMAND PACKET 
JSR PC, T24RT2) ;SET UP OTHER COMMAND PACKET 


F SSSSSSSHHSSSSSSSSESSESSSSESSSSSSSSSOSISHSSSSSASSHSESHSESSSESHSESESEESESES 


: 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


‘ 
J SSSESSEHSSSHSSSHSSSHSSHSESSSSHASSSSSHSSSSSSOSSSSSSSSSSSSSSSESSHSSESESS 


JSR PC, SOF INIT s00 INITIALIZE ON CONTROLLER 
6cs 20% sBR IF INIT WAS OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 i CONTENTS OF TSSR REGISTER 


ERROF ERRNO, SFIEPR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP  —- CSEROF 


-WORD 460 
-WORD SFIERR 
-WORD SFIMSG 


20%: 
;SET ORIVE NUMBER IN PACKET 
sSUBROUTINE NEEDS PACKET ADDRESS 


F FSSSSSSHSESSSSESSSSSSESSSHSSESHEESESHESESSHSSSEHHSHHEHESESSHEAASHESEHESESD 
3 


MOV UNITN, T240SW 
MOV @T24PACKET ,R4 


ERIE Ase A) pS AEE 


TSV7 - HARDWARE TESTS 1-8 


04 
3147 041550 

041550 
3148 041552 


004737 
103407 
005237 
010001 


104456 
000715 
005054 
012124 
104466 


104406 
012703 


010752 
002212 


011104 
016426 


002212 


000005 


- MACRO M1113 14-JUN-84 14:17 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE ) 


sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


044201 
044200 


; 
FSMRSASHNSSSHSASSSSHSEHSSSSSSHESSESEHSSESESESSSSESSSSESHESHESSEHESESEEEEEEEOS 


MO 
ERRHRD 


24%: CKLOOP 


PC,WRTICHR 
24% 
FATFLG 


RO,R1 
ERRNO ,WRTMSG, SF IMSG 


SEQ 9160 
s ISSUE WRITE > an ee 
s;8R, IF COMMAND ISSUED OK 
sBUMP COUNT 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERHMRD 
. WORD 461 
. WORD WRTMSG 
. WORD SF IMSG 
;LOOP IF SELECTED 
TRAP CSCLP1 


J SSHSOSSSSSSSSSSSSSSSSHSSSSSEHSSSHSESSSSESHESSASSSSEESSARESSESESEHEEESEHEES 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


e 
§ SSHSSSSSSSSSSSSHSSHSSHSASSSSHSSSESSSEHSHSSSSSHSHSHESSSESESSESESSEHSEESEEEEEE 


TST 


27%: 


28%: CKLOOP 


aay 


27% 

#200, T248S1 

#10, T248S0 

eT24PK2 .R4 

R4, TSOBCRS) 

PC ,CHKTSSR 

28% 

RO,R1 

FATFLG 

ERRNO, T22SSR,PKTSSR 


PC ,REWINO 
PC,CHKTSSR 
30% 


FATFLG 
ERRNO, T24RWN,PKTSSR 





sCHECK FOR to ae FEATURES SW SWITCH 
CONT/READ STATUS 


SCELLANEOUS 
sFUNCTION SELECTION BIT (TURN ON EXTFEA Huw 


sWRITE SUBSYS MEM PACKET 
OMMAND 


sERROR, SAVE TSSR 


sBUMP COUNT 
sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CSERHRO 
. WORD 462 
. WORD T22SSR 
. 4ORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLPs 
sCALL TAPE REWIND COMMAND 
sSEE HOW TSSR IS 
3;BR, IF NO PROBLEM 
sSAVE TSSR 
;BUMP COUNT 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
. WORD 463 
.WORD T24RWN 
. WORD PKTSSR 
3LOOP IF SELECTED 
TRAF CSCLPi 


sNUMBER OF RECORDS 


SWITCH) 


TSV7 - HARDWARE TESTS 1 


3149 041556 
50 


012737 
012704 


012737 


FL2 


MACRO M1113 14-JUN-84 14:17 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE ) 


013737 003114 044172 


044170 


044176 


044172 


044170 
044176 


MOV 


FREE , T24RB 


SEQ 9161 


{ PORAEAAOEEREEEEARESERERESOREEESEREEEREERESEEESESEEEEEESESESESESES 
; 
s;WRITE DATA,ACK,CVC=1 COMMAND 


; 
FESARARSSSSHSASSHSSSSSSSSSESAEAHSEHHAASHSAIESEEESAEEEEEEAEEEESEHEEEEEEEOS 


65$: 


75$: CKLOOP 


#140005, T24PK3 
@T24PK3,R4 


0256, T24SZ 


FLG 
ERRNO, WRTERR ,PKTSSR 


sSTARTING WRITE BUFFER ADDRESS 

sWRITE DATA,ACK,CVC=1 COMMAND 

;SET UP R4 WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 

sBUMP COUNT 

;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 464 
-WORD WRTERR 
-WORD PKTSSR 


;LOOP IF SELECTED 

TRAP CSCLP1 
;BUMP DOWN RECORD COUNTER 
BR, IF NOT AT S RECORDS YET 
sRECORD SIZE 
sNXM LOW ADORESS START 
sLIMIT CHECK FOR NXM (HIGHEST) 
sLOOK FOR NXM ADDRESS 
3;BR, IF NON FOUND 
sSET ADORESS UP FOR TEST 
sSTARTING READ BUFFER ADDRESS 
sSET TO 16 BIT ADDRESSING 


FSSSSSSSSHSSSESSSSSESSSHSSSHHHSSHESSEHSESHSSSESSSSHSHSSESHSSSEHESESSEHEEEE 


i 
sREAD DATA,ACK COMMAND 


e 
F SSSSSSSESHSEASESEHSSESESHSHSESHASEHESSEEESSESSESHESSESSHSEHEHSHSHHESHESSEEES 


MO 
165$: MOV 


ERRHRD 


#100001 , T24PK3 


R5),R 
OSSRINKM!SC!BITS, R2 
R1,R2 
170$ 


T24RB+2 
——— 


FLG 
ERRNO. T24NXM,PKTSSR 


sREAD DATA,ACK COMMAND 

sSET UP R4 WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 

sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

;BR, IF OK 

3SET TO NEXT HIGHER ADDRESSING MODE 

s0ID WE OVERFLOW INTO 19 BITS 

36R, IF STILL IN 16-18 BITS RANGE 

sBUMP COUNT 

:TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 


EEE 


TSV7 - HARDWARE TESTS 1 


000721 
044431 
012136 


104406 


104403 
023727 
103402 
004737 


104402 
004737 
004737 
004737 


012124 


013737 
012704 


-8 


002212 
017272 


046530 


016064 
002212 


002172 
044040 


MACRO M1113 14-JUN-84 14:17 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE ) 


000017 


044060 


1708: CKLOOP 


1808: 
ENOSUB 
CMP FATFLG,@15. 
BLO 999$ 
JSR PC ,CKDROP 
999$: 


. 
3° 


;TEST 4, SUBTEST 10 


SEQ 0162 


465 
T24NXM 
PKTSSR 


TRAP CsCLPi 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10063: 
TRAP CsESuB 
;IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
:TRY TO OROP THE UNIT 


a5 


sLOOP IF SELECTED 


;VERIFIES THAT ILLEGAL MODE-FIELD CODES IN THE READ 
s;COMMAND CAUSE A FUNCTION REJECT TERMINATION WITH THE 


sILLEGAL COMMAND CILC) ERROR BIT SET. 


. 
. 
. 
. 
a 
. 


JSR PC, T24RTS 
JSR PC, T24REST 
JSR PC, T24RT2 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
74.10: 


TRAP CsBSUB 
sSET COMMAND PACKET UP CLEAR 
sSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 


J SSASSHSSASSSSSSASSSSSAESHSHASSSSSHESSHESSESHSESESSSSSSESSSESSHEAEEEEEES 


; 
ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


é 
§ SSSSASSSSSSSSSSHSSHSHHSSSESASHESSESHEESASSSEASSSSSHESSESESESSESRESESEAESS 


JSR PC, SOFINIT 
20% 


BCS 
INC FATFLG 
MOV RO,R1 


ERRDF ERRNO, SFIERR, SFIMSG 


MOV UNITN, T240SW 
MOV @T24PACKET , Ra 


300 INTTIALIZE ON CONTROLLER 
36R IF INIT WAS OK 
;BUMP COUNT 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 


-WORD 466 
-WORD SFIERR 
-WORD SFIMSG 


;SET UP DRIVE NUMBER 
; SUBROUTINE NEEDS PACKET ADORESS 


F SSSSHAHSSAHASSHSSSSEASEHESSSESEHSESHESSESESHSESHESSEEHESHSEESHSESESESEEEHKESEEES 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
{ FSSSSSSHESSHEAESEESESESEEAEAASSESSESEESESEHHESEEHEAHSSEHEHASSEHEHEEESEEESDEHEOD 


TSV7 - HARDWARE TESTS 1 


TEST 4: BASIC READ Sata’ (FORWARD AND REVERSE) 


005054 
042124 012124 


104406 
3264 0421350 13737 


3294 042220 iexeas 


3304 042252 


010752 
002212 


003114 
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044172 


044170 
044176 


24%: 


CKLOOP 
MOV 


PC,WRTCHR 
24% 
FATFLG 


RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG 


FREE, T24RB 


S SARSSSHASSEHSSAHSSESESSSSESHESSEASEESSHESSESASESEESSSEEEEHEEEKEEEHEHESEES 


; 
sILLEGAL MODE DATA,ACK COMMAND 


‘ 
J SSSSSSHSSHSHSAESEHSASHAHSHSSESAHESSESEHEEEASAESHASSSSSEASSEEHEHEEESEEEEES 


75$: 


INC FATFLG 
ERRHRD ERRNO, TO4W0F ,PKTSSR 


CKLOOP 


#104001, T24PK3 
R4 


@T24 


75$ 


SRCRS).R 
assniscr1Tase8rT2, »R2 


SEQ 9163 
s ISSUE WRITE CHARACTERISTICS 
;6R, IF COMMAND ISSUED OK 
sBUMP COUNT 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERWRD 
-WORD 467 
~ WORD WRTIMSG 
-WORD SFIMSG 
;LOOP IF SELECTED 
TRAP CSCLP1 
sSTARTING WRITE BUFFER ADDRESS 
sILLEGAL MODE DATA,ACK COMMAND 
3SET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
sISSUE COMMAND 
sWAIT FOR SSR!IBIT1I!BIT2 TO SET 
;GET TSSR CONTENTS 
iSET UP EXPECTED 
sARE THEY EQUAL 
;BR, IF OK 
sBUMP COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 468 
-WORD T24WOF 
.WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLPl 


J SFSSSSSSSHKSSSHSSSSSSSSESSSESASHSESESESSSEHAETESSHEAESEHERSEEAEEEEESEEEESD 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


é 
PERE HTERAESHKEE EERE EEMAERARARAEDRAHRERRABUARGKECAKKEGAEGSAB 


180%: 


ERRHRO ERRNO. T26L0Q, EXPREC 


CKLOOP 


T24BFR+6.R1 
R1,R2 


1, 
@BIT9,R2 
R1,R2 


sGET MESSAGE BUFFER 

sSET UP EXPECTED 

sSET THE ILC BIT IN EXPECTED 

sARE THEY EQUAL 

sBR, IF EQUAL CALL IS WELL) 
UMP COUNT 


8 
; THE ILC BIT WAS NOT = ll xSTO ; 


CSERHRD 
TORO 469 
“WORD T24L.00 
WORD EXPREC 


TRAP CSCLP1 


[14 
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3305 042254 ENDSUB :>>>>>>>>>2>> END SUBTEST »>>>>>>>>>>> 
042254 L10064: 
042254 104403 TRAP CSESUB 

3306 042256 023727 002212 000017 CMP FATFLG,@15. :I1S ERROR COUNT AT 25 

3307 042264 103402 BLO 999% ;BR, IF LESS THAN 25 

3308 042266 004737 017272 JSR PC,CKDROP sTRY TO DROP THE UNIT 

3309 042272 999$: 

3310 

3311 3° 

3312 3 

3313 ;TEST 4, SUBTEST 11 

3314 ; 

3315 sVERIFIES THAT ILLEGAL BUFFER ADDRESSES CAUSE A 

3316 sFUNCTION REJECT TERMINATION WITH ILLEGAL ADDRESS 

3317 ;CILA) ERROR BIT SET. 

3318 3 

3319 3 

3320 3 

3321 3° 

3322 

3323 042272 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
042272 74.11: 
042272 104402 TRAP C$6SUB 

2324 042274 004737 046664 JSR PC, T24RT3 3;SET COMMAND PACKET UP CLEAR 

3325 042300 004737 046530 JSR PC, T24REST ;SET COMMAND PACKET 

34 042304 004737 046622 JSR PC, T24RT2 ;SET UP OTHER COMMAND PACKET 

3328 ROH RAKSAHARHAHEERAHREHRASHRHARESHTAS HERA HEAKHEAHHAEHAEHSHARSRAAHE HEHE ERES 

3329 : 

tty ; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

tt fF POSAESAAHAESSASSEESAREEESEASSEESSEESEEEEEESESSEEHESEEHEDEHOREDEEEAES 

3 : 

3334 042310 004737 016064 JSR PC, SOFINIT 300 INITIALIZE ON CONTROLLER 

3335 042314 103407 BCS 29% ;BR IF INIT WAS OK 

3336 042316 005237 002212 INC FATFLG sBUMP COUNT 

3340 042322 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

3341 042324 ERROF ERRNO, SFIERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
042324 104455 TRAP CSEROF 
042326 000726 . WORD 470 
042330 003650 . WORD SFIERR 
042332 012124 . WORD SF IMSG 

3342 042334 20%: 

3343 042334 013737 002172 044060 MOV UNITN, T240SW sSET UP DRIVE NUMBER 

co 042342 012704 044040 MOV @T24PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

oa {PHS OEEASAESERESEESEESEAESESEESEEEESESESSESESEESESESRERERESEEDERESESE 

pe ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

a FFSSHSHEEEESSHSSSSESSESESSSSSESSHESSESSSESSEHSESASHSSESHSHSSHHESSSHSEKEASSEEESS 

1 

3352 042346 004737 010752 JSR PC ,WRTCHR ; ISSUE WRITE CHARACTERISTICS 

3353 042352 103407 BcSs 24% 3;B8R, IF COMMAND ISSUED OK 

3354 042354 005237 002212 INC FATFLG sBUMP COUNT 

3358 042360 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 


3359 042362 ERRHRD ERRNO, WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 


“Ji3 
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042362 104456 TRAP CSERHRD 
042364 000727 . WORD 471 
042366 005054 -WORD WRTMSG 
042370 012124 . WORD SF IMSG 
3360 042372 24s: CKLOOP ;LOOP IF SELECTED 
042372 104406 TRAP CS$CLP1 
3361 042374 013737 003114 044172 MOV FREE, T24RB ;ILLEGAL STARTING READ BUFFER ADDRESS 
3362 0424C2 012737 177700 044174 MOV 9177700, T24RB+2 ;CREATE ILLEGAL ADDRESS 
3363 
3364 FERAAARAAEAEAAEEEREEEAEREAEAEAEEREEEEHESEREEREREEEEEEEERERE SESE DOSE 
3365 ; 
3366 ;LEGAL MODE ,ACK,CVC=1,READ COMMAND 
3367 ; 
3368 PTT I TTT errr rit irri rir it irititiittitiiiiititiitittititittitiiit 
3369 
3370 042410 012737 140001 044170 MOV #140001 , T24PK3 ;LEGAL MODE ,ACK,CVC=1,READ COMMAND 
3371 042416 012704 044170 MOV @T24PK3 ,R4 ;SET UP R4 WITH PACKE: ADORESS 
3372 042422 012737 000400 044176 MOV 0256. , T24SZ sSET UP RECORD SIZE IN PACKET 
3373 042430 010465 000000 MOV R4, TSDOBCRS ) s ISSUE COMMAND 
3374 042434 004737 016340 JSR PC ,WAITF ;WAIT FOR SSR!IBITI!BIT2 TO SET 
3375 042440 016501 000002 MOV TSSRCRS),R1 ;GET 1SSR CONTENTS 
3376 042444 012702 100206 MOV @SSR!SC!BIT1!BIT2,R2 ;SET UP EXPECTED 
3377 042450 020102 CMP R1,R2 sARE THEY EQUAL 
3378 042452 001406 BEQ 75$ ;BR, IF OK 
3379 042454 005257 002212 INC FATFLG ;BUMP COUNT 
3383 042460 ERRHRD ERRNO, T24W0G,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
042460 104456 TRAP CSERHRD 
042462 000730 -WORD 472 
042464 044342 . WORD T24WDG 
042466 012136 -WORD PKTSSR 
3384 042470 75$: CKLOOP ;LOOP IF SELECTED 
$305 042470 104406 TRAP CS$CLP1 
1 3386 f URRAORAEAASAASEHEAASEHAEESESEEEHEEHEEEEERESEEEREREESEEEEEDEREEEEDE 
3387 ; 
| oo. ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
| 3390 FERERERERAEEESEEEEERERESSEAREREREREREESESEERESERESEESESESEREEREOEEEES 
3391 
| 3392 042472 013701 044070 MOV T24BFR+6,R1 ;GET MESSAGE BUFFER 
3393 042476 010102 MOV R1,R2 ;SET UP EXPECTED 
| 3394 042500 052702 000400 BIS BITS ,R2 ;SET THE ILA BIT IN EXPECTED 
j 3395 042504 020102 CMP R1,R2 ;ARE THEY EQUAL 
3596 042506 001406 BEQ 180$ ;BR, IF EQUAL CALL IS WELL) 
| 3397 942510 005237 002212 INC FATFLG ;BUMP COUNT 
| 3401 042514 ERRHRD ERRNO, T24ILA,EXPREC ;THE ILA BIT WAS NOT SET IN XSTO 
042514 104456 TRAP CSERHRD 
042516 000731 -WORD 473 
| 042520 044572 -WORD T24ILA 
042522 015564 . WORD EXPREC 
3402 042524 180$: CKLOOP 
042524 104406 TRAP Cs$CLP1 
3403 042526 ENDSUB ;>>>>>>>>>>>> END SUBTEST »>>>>>>>>>>> 
042526 L10065: 
042526 104403 TRAP CSESUB 
3404 042530 023727 002212 000017 CMP FATFLG, #15. sIS ERROR COUNT AT 25 
3405 042536 103402 BLO 999% ;BR, IF LESS THAN 25 


TSV7 - HARDWARE TESTS 1-8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE ) 


3406 042540 
3407 042544 


004737 


012124 


013737 
012704 


004737 
103407 
005237 
010001 


104456 
000733 


005054 
012124 


017272 


016064 
002212 


002172 
044040 


010752 
002212 
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044060 


JSR PC, CKDROP 
9995: 


. 
; . 


;TEST 4, SUBTEST 12 


:TRY TO OROP THE UNIT 


;VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING 
s;NONEXISTANT MEMORY CAUSES RECOVERABLE ERROR 

; TERMINATION (TC#4), WITH THE NXM BIT SET IN THE TSSR, AND 
;THAT THE TAPE IS ULTIMATELY POSITIONED PROPERLY. 


BGNSUB 

TST NXMFLG 
BNE 10% 
JMP 80% 


10%: JSR PC, T24RTS 
JSR PC, T24REST 
JSR PC, T24RT2 


SEQ 0166 


5>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>> 
74.12: 


TRAP 
300 WE HAVE IT? 
;8R, IF ENOUGH 
;SKIP THIS TEST IF NCT 


ET 
sSET UP OTHER COMMAND \*ACKET 


FSSASASHASSHAASSSSHASHSEASEASASEASEEASSSSHESHEKESASAHSEHESEAEESEESESEESEEE 


;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


. 
_RECRAEKAAREROSHARESRASESHHRARARRAKH HEE AHEHASAKSHARHSHSEAKRSHKAHAARKEEHRAE 


JSR PC, SOF INIT 
20% 


INC FATFLG 
MOV RO,R1 
ERROF ERRNO, SFIERR,SFIMSG 


20%: 
MOV UNITN, T24D0SW 
MOV @T24PACKET ,R4 


JSR PC,WRTCHR 
BCS 24% 
INC FATFLG 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG 


s00 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 

sBUMP COUNT 

s;CONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS a ~ 


;SET UP DRIVE NUMBER 


C$8SUB 


CSERDF 
474 

SFIERR 
SF IMSG 


;SUBROUTINE NEEDS PACKET ADDRESS 
{TPAESEESERESEESEESERESEEESEESERESESESSRESES EER EEDEEDEREREEEEED ES 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


. 
{SESSA SESEREKESESEESSESSESHSSEESESHSESESSESESHEESEASEESESEEEAEEEESEESEEEEDA 


;ISSUE WRITE CHARACTERISTICS 
;B8R, IF COMMAND ISSUED OK 
;BUMP COUNT 

;SAVE CONTENTS OF TSSR 

;WRITE CHARACTERISTISC "oe 


. WORD 
. WORD 
. WORD 


CSERHRD 
475 
WRTMSG 


TS 


test “4: BASIC READ "Sata CFORWARD AND REVERSE ) 


3459 


- HARDWARE TE 


104406 
012701 
012702 
004737 
103046 
010137 
013737 
005037 


012737 


160000 
177776 
016466 


003130 


003130 
044174 


002212 
017272 


L13 
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044172 


044170 
044176 


000017 


24s: 


CKLOOP 


#160000 ,R1 
#177776,Re2 
PC , XNXM 

80$ 
R1,NXMLO 
NXMLO, T24RB 
T24RB+2 


SEG 0167 


;LOOP IF SELECTED 


TRAP CsCL Pi 
sNXM LOW ADDRESS START 
sLIMIT CHECK FOR NXM (HIGHEST ) 
ADORE SS 


SET ADDRESS U> FOR TEST 
s;SET TO NXM MEM RY ADDRESS 
sSET "0 16 BITS ADDRESSING 


{ SSASASHHAASEESSSAASSSASSEHAAESEHAEESESAASEEASESEHESESYUSASESSEHEEESHEEKEHEEEEE 


;READ, ACK, CVC=1, COMMAND 


; 
PPARKAHAAEEHAAREHRHEAEAEAEARHEEEEHHRHEEHEHHEAERAEEAEHE SHEE ESEHAEKRESHESHEE 


30$: 


75$: 


999%: 


3;¢ 


#140001, T24PK3 


TSSR(RS),R1 
@SSR!SC!NXM!BIT3,R2 
R1,R2 


30 
FATFLG 
ERRNO, T24NXM,PKTSSR 


FATFLG,@15. 
999% 
PC ,CKDROP 


;TEST 4, SUBTEST 13 


; VERIFIES THAT A REAL REVERSE COMMAND ISSUED WHILE THE 
;TAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION 
s;WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET 


sREAD, ACK, CVC=1, COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
3SET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR!BITI!BIT2 TO SET 
sGET TSSR CONTENTS 

sSET UP EXPECTED 
;ARE THEY EQUAL 
;BR, IF Ox 
;BUMP TO NEXT ADDRESSING RANGE 
;CHECK FOR OVERFLOW 
;BR, * STILL IN 16-18 BIT RANGE 


3 OUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP 


CSERHRD 
-WORD 476 
-WORD T24NXM 
-WORD PKTSSR 


;LOOP IF SELECTED 
TRAP CsCLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10066: 


TRAP CsESUB 
IS ERROR COUNT AT 25 
BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


M L 4 
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3511 043030 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>-, 
043030 74.13: 
043030 104402 TRAP C$BSuU6 

3512 043032 004737 046664 JSR PC, T24RT3 ;SET COMMAND PACKET UP CLEAR 

3513 043036 004737 046530 JSR PC, T24REST 3SET COMMAND PACKET 

3514 043042 004737 046622 JSR PC, T24RT2 :;SET UP OTHER COMMAND PACKET 

3515 

3516 PeTTITI TIT iti iitit iti itititititiiiiitiiiiitititiiiiiiiitititiiitit 

3517 ; 

3518 ; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

3519 ; 

3520 PeTI TTT I Tritt iri titi iii iti iii ititititiiitiitititiitititiiittititity 

3521 

3522 043046 004737 016064 JSR PC, SOF INIT :00 INITIALIZE ON CONTROLLER 

3523 043052 103407 BCS 20% ;8R IF INIT WAS OK 

3524 043054 005237 002212 INC FATFLG ;BUMP COUNT 

3528 043060 019001 MOV RO,R1 ;CONTENTS OF TSSR REGISTER 

3529 043062 ERROF ERRNO, SFIERR, SF IMSG ;FATAL ERROR TSSR WAS NOT OK 
043062 104455 TRAP CSEROF 
043064 000735 . WORD 477 
043066 003650 . WORD SFIERR 
043070 012124 . WORD SF IMSG 

3530 043072 20%: 

3531 043072 013737 002172 044060 MOV UNITN, T240SW ;SET UP DRIVE NUMBER 

aoe 043100 012704 044040 MOV @T24PACKET ,R4 ; SUBROUTINE NEEDS PACKET ADORESS 

3534 PeTIT IT Titi i iti iti ii titi tit iitiititititiiiitititiiiititiiri titi iy 

3535 ; 

aoe ;WRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 

ee MTUTTTTTTITITITTTTTITITITTTTTTTITITITTTTTTT TTT TTT TTT TIT TTT TTT Tete 

39 

3540 043104 004737 010752 JSR PC,WRTCHR ; ISSUE WRITE CHARACTERISTICS 

3541 043110 103407 bcs 243 ;8R, IF COMMAND ISSUED OK 

3542 043112 005237 002212 INC FATFLG ;BUMP COUNT 

3546 043116 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

3547 043120 ERRHRD ERRNO,WRTMSG, SF IMSG ;WRITE CHARACTERISTISC FAILED 
043120 104456 TRAP CsERHRD 
043122 000736 . WORD 478 
043124 005054 . WORD WRTMSG 
043126 012124 . WORD SF IMSG 

3548 043130 24%: CKLOOP ;LOOP IF SELECTED 
9043130 104406 TRAP C$CLP1 

3549 

sey {PAPA RSSEEHEEEEEEEEREEEEEEREEHESEEEEEEHEEERESEAEESEREERESEEREREREEES 

51 3 

oes | ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

oo WUTUTTTTTTTITTTITTTITTTITITTTTTTTITITTTITITITITTT TTT TTT TTT tiie 

3556 043132 004737 011104 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

3557 043136 004737 016426 JSR PC,CHKTSSR ;SEE HOW TSSR IS 

3558 043142 103407 6cSs 30$ ;8R, IF NO PROBLEM 

3559 043144 010001 MOV RO,R1 ;SAVE TSSR 

3560 043146 005237 002212 INC FATFLG ;BUMP COUNT 

3564 043152 ERRHRD ERRNO, T24RWN,PKTSSR S REWIND NOT ACCEPTED 


043152 104456 TRAP CSERHRD 





TSV7 - HARDWARE TESTS 1-8 
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043154 
043156 
043160 
043162 
043162 
043164 
043170 


000737 
045326 
012136 


104406 
012703 
013737 


012737 
012704 


010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 


104456 
000740 
044771 
012136 


104406 


013701 
010102 
052702 
020102 
001406 
005237 


104456 
000741 
044220 
015564 


104406 
104403 


023727 
103402 


000400 


003114 044172 


044170 


044070 
002000 


002212 


002212 000017 


30$: 


CKLOOP 


MOV 
MOV 
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256. ,R3 
FREE , T24RB 


N14 


FSSSAASSSAASSHSSSAHKASSSEEASEKESEAASAEAAESERESAEEEREEEEEESEEEKESEEERESEED 
;READ REVERSE DATA,ACK COMMAND 


. 
J SSASAAASAHAHESSSESASSSEHAAESHSESASSHSEHSEHRESEHEESSEAEAEKESEESSEEEEKEEE HEE US 


65$: 


75$: 


ERRHRD ERRNO, T24WDE ,PKTSSR 


CKLOOP 


#100401 , T24PK3 
@T24PK3,R4 


R3,T24SZ 
R4, TSDOBCRS) 
PC ,WAITF 
TSSRCRS),R1 


FATFLG 


a 


PRECREAAAAERRAAEAREERAAREAREREHEE EERE HAREKAREKMER HEE RHRRAH MH REE HE HE 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


a 
PERERA KAAERAREAAEERHKAAEAAMRHARAKEAHERHAERHRARRAAARARREAKEAARERAHE HERES EK 


180$: 


T24BFR+6,R1 
R1,R2 
#B1T10,R2 


G 
ERRNO, T24NEF ,EXPREC 


FATFLG,@15. 
999% 


SEQ 0169 
. WORD 479 
. WORD T24RWN 
. WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLPl 
sRECORD SIZE 
;STARTING WRITE BUFFER ADDRESS 
sREAD REVERSE DATA,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
3; ISSUE COMMAND 
sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;BR, IF OK 
;BUMP COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
. WORD 480 
. WORD T24WDE 
. WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CS$CLP1 
;GET MESSAGE BUFFER 
;SET UP EXPECTED 
;SET THE NEF BIT IN EXPECTED 
;ARE THEY EQUAL 
;6R, IF EQUAL CALL IS WELL) 
sBUMP COUNT 
;THE RLL BIT WAS NOT SET IN XSTO 
TRAP CSERHRD 
.WORD 481 
. WORD T24NEF 
.WORD EXPREC 
TRAP CS$CLPi 


3 >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


L10067: 
TRAP 
:IS ERROR COUNT AT 25 
:BR, IF LESS THAN 25 


CsESUB 


b; 14 


TSV7? - MARDWARE TESTS 1-8 > ton a LYE 14-JUN-84 14:17 SEQ 9170 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE ) 

3612 043324 004737 017272 JSR PC ,CKDROP ;TRY TO OROP THE UNIT 

3613 043330 999%: 

3614 

3615 i* 

3616 3 

3617 sTEST 4, SUBTEST 14 

3618 F 

3619 ;VERIFIES THAT A READ REYERSE COMMAND ISSUED WHILE THE 

3620 ;TAPE IS POSITIONED BEFORE THE FIRST RECORD ON TAPE 

3621 :(BUT NOT AT BOT) RESIATS IN TAPE STATUS ALERT. 

3622 3 

3623 3 

3624 : 

3625 3° 

3626 

3627 043330 BGNSUS g>>>>>>>>>>>> — ee >>> >>>>>>>>> 
043330 4.14 
043330 104402 TRAP Cs6SU8 

3628 043332 004737 046664 JSR PC, T24RTS sSET COMMAND PACKET UP CLEAR 

3629 0433536 004737 0465350 JSR PC. T24REST 3SET COMMAND PACKET 

oe 043342 004737 046622 JSR PC, T24RT2 ISET UP OTHER COMMAND PACKET 

3632 F SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSESSSSES 

3633 3 

4 sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

f 

3636 { SSHASSSASSSSSSHSSSSSSSHSESHSHSHSSEEASSSHSSEHSSSHESESESEESEESEEDEESE 

3637 

3638 043346 ©4737 016064 JSR PC, SOF INIT 3:00 INITIALIZE "ie CONTROLLER 

3639 043352 103407 6cs 20% 3B8R IF INIT WAS OK 

3640 043354 005237 002212 INC FATFLG sBUMP COUNT 

3644 043360 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

3645 043362 ERROF ERRNO, SFIERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
043362 104455 TRAP CSEROF 
043364 000742 . WORD 482 
043366 003650 . WORD SFIERR 
043370 012124 . WORD SF IMSG 

3646 043372 20% 

3647 043372 013737 002172 044060 MOV UNITN, T240SW ;SET UP ORIVE NUMBER 

—— 043400 012704 044040 MOV @T24PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

3650 f SSROSHSHSSHSSHSHESHEHDESESSHOHSHSSHSHESESHSSSHESEESHEEEESSESEESEEES 

3651 3 

— sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 

Hy 

are { SOHHSSASSSESSEHSSSOSSESEEEHSHSSESESHSEHSESHSSHSSEHEESSEESHEOSEESEEEOE 

3656 043404 004737 010752 JSR PC ,WRTICHR sISSUE WRITE CHARACTERISTICS 

3657 043410 103407 6cs 24% 368R, IF COMMAND TSSUED OK 

3658 043412 005237 002212 INC a at sBUMP COUNT 

3662 043416 010001 MOV RO,R sSAVE CONTENTS OF TSSR 

3663 043420 ERRHRD ERAN, WRTMSG , SF IMSG sWRITE CHARACTERISTISC FAILED 
043420 104456 TRAP CSERHRD 
043422 000743 .WORD 463 
043424 005054 .WORD WRTMSG 
043426 012124 .WORD SFIMSG 


3664 043430 24s: CKLOOP sLOOP IF SELECTED 


043430 


5 
043570 


104406 


104406 
012703 
013737 


012737 
012704 


010337 
0465 


104406 
012703 
013737 


012737 


C14 


TSV7 - HARDWARE TESTS 1 MACRO maiis ~ JUN-84 14:17 SEQ 0171 
TEST 4: BASIC READ Bata FORWARD AND REVERSE ) 


011104 
016426 


002212 


000400 
003114 044172 


eeeae 044170 


000400 
003114 044172 


100401 044170 


TRAP CSCLPl 
J SSHSSSSSHSSSSSSSSSSSSSSSSSSSSSSSHSHSHSEAESESHSOSESSEHEESEEHTEHEEEEEEECE 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
J SSHSSSHSSSSSSSSSSSSSHSSSSHSHSESSESSSHESESSHSSHSSSSESHSSHSESESSSESSEEEEEEE 


JSR PC REWIND sCALL TAPE REWIND COMMAND 
PC ,.CHKTSSR sSEE HOW TSSR IS 

BCS $ sBR, IF NO PROBLEM 

MOV RO,R sSAVE TSSR 


LG sBUMP COUNT 
ERRHRD ERRNO, T24RWN,PKTSSR sREWIND NOT ACCEPTED 
TRAP CSERHRD 
WORD 484 


-WORD T24RWH 
-WORD PKTSSR 
308: CKLOOP sLOOP IF SELECTED 
TRAP CSCLPi 
MOV 256. ,R3 sRECORD SIZE 
MOV FREE , T24R8 sSTARTING WRITE BUFFER ADDRESS 


FSSHRSSSSSSSSSSSSSSSSSHSSSSSSHHSS LSSSHHESSSSSESSSSSHSSSSISSSSSSSSEEEEE 


: 
sWRITE DATA,ACK,CvC=1 COMMAND 


MOV #140005 , T24PK3 sWRITE DATA,ACK,.CVC=1 COMMAND 
os MOV @T24PK3 ,R4 7SET UP R4 WITH PACKET ADORESS 
$: 

MOV R3,T24SZ ;SET UP RECORD SIZE IN PACKET 

MOV R4, TSOBCRS) s ISSUE COMMAND 

JSR PC ,WAITF sWAIT FOR SSR TO SET 

TSSRCRS),R1 sGET TSSR CONTENTS 

MOV @SSR ,R2 sSET UP EXPECTED 

CMP R1,R2 ;ARE THEY EQUAL 

BEQ 75$ sBR, IF OK 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, WRTERR,PKTSSR sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
. WORD 485 
. WORD WRTERR 
.WORD PKTSSR 

753%: CKLOOP 3LOOP IF SELECTED 

TRAP CSCLPi 

MOV 0256. ,R3 sRECORD SIZE 

MOV FREE , T24RB sSTARTING REAC BUFFER ADDRESS 


FSESSSSHSSSHESSSSHESSSSESSSOSSSSSSSSSHSSEASHASHOSHESEHSSHSHHHSSEHSHESHEHES 


; 
sREAD REVERSE DATA,ACK COMMAND 


° 
J SSSSSOSSHHSSHEESSSHSSSEHSSESSASSHESSESHHSSHSHSHSEHEHESHEHOSHASESEHESEEDD 


MOV #100401 , T24PK3 sREAD REVERSE DATA,ACK COMMAND 


TSV7 
TEST 4: 
3717 


3765 
3766 


- HARDWARE TESTS 


BASIC 
043576 
04 


104406 
012703 
013737 


012737 


1-8 

044170 
044176 
000000 
016340 
000002 
000200 


002212 


000400 
003114 


100401 
044170 
044176 
000000 
016340 
000002 
100204 


002212 


D14 


MACRO M1113 14-JUN-84 14:17 
READ BATA (FORWARD AND REVERSE ) 


044172 


044170 


165$: MOV 


1708: CKLOOP 


MOV 
MOV 


@T24PK3,R4 


FATFLG 
ERRNO, T24TRL ,PKTSSR 


@256. ,R3 
FREE , T24RB 


SEQ 9172 


J SSSHHSNSSSSSSSSSSSSSSSSSSSSSSHSSSSHSHSSHSSSHEHSESSSSSEHSSHSSSEESSSEESS 


; 
sREAD REVERSE DATA,ACK COMMAND 


3 
J SSSHSSSSSSSSSSSSOSSSSSSSSSSSESHSHSSHSHSHHSSSSSSHSSHSSSSSSSESSHSSSSEEE 


MOV 
195%: 


2008: 


210%: 


#100401 —— 


TSSRCRS),R 
esse SC t8IT2, R2 


FATFLG 
ERRNO, T24TRL ,PKTSSR 


1,R2 
@BITO,R2 
R1,Re2 
10% 


FATFLG 
ERRNO, T24LOR , EXPREC 


;SET UP R4& WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKE’ 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

;ARE THEY EQUAL 

388, IF OK 

sBUMP COUNT 

;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRO 
-WORD 486 
. WORD T24TRL 
-WORD P* 4SR 

;L00P IF SELECTED 
TRAP c°lLP1 

sRECORD SIZE 

sSTARTING READ BUFFER ADORESS 

sREAD REVERSE DATA,ACK COMMAND 

3SET UP R4 WITH PACKET ADORESS 

sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF ~, 

sBUMP COUN 

;TSSR TNCORRECT AFTER — . 

CSERHRD 

TWoro 487 
. WORD T24TRL 
.WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 

sGET MESSAGE BUFFER (XST3) 

sSET UP EXPECTED 

sSET THE RIB BIT IN EXPECTED 

sARE THEY EQUAL 

s8R, IF EQUAL CALL IS WELL) 

s;BUMP COUNT 

;THE RIB BIT WAS NOT SET IN XSTO 
TRAP CSERHRD 
-WORD 486 
. WORD T24LOR 
-WORD EXPREC 
TRAP CSCLPi 

3 >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


L10070: 


- MARDWARE TESTS 1-8 


test 4: BASIC 


MACRO M1113 


14- JUN - 84 


READ DATA (FORWARD AND REVERSE ) 


044174 000000 
044176 000000 
044200 

044200 010 


002212 000017 
17272 


016546 
034516 


1633: 


E14 


14:17 


FATFLG,@15. 
999% 
PC ,CKDROP 


PC, TSTLOOP 
163% 
T24L00P 
TsT 


3° 
sLOCAL STORAGE FOR THIS TEST 
os 


T24PACKET 


T24DATA: 


T240SW: .WORD 
T24BFR: .BLKW 


; 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 


‘ 
-BL 
T24PK2: 


10-<. -TSV2E7> 


100204 
T24DATA 
0 

10. 
T24BFR 
0 


20. 
0 


ie) 

2s. 
10-<.-TSV2E7> 
100206 

T24BF 2 

0 

6. 
10-<.,-TSV2E7> 
100205 

FREE 

0 

0 


10 
0 


SEQ 0173 


TRAP CSESUB 
:I1S ERROR COUNT AT 25 
sBR, IF LESS THAN 25 
;TRY TO OROP THE UNIT 


s00 WE NEED TO ITERATE TEST 
:BR, IF NO LOOP REQUIRED 
SEXECUTE AGAIN 


sALL DONE THIS TEST 
TRAP CsExIT 


-WORD 110052-. 


sCOMMAND PACKET FOR TEST 


sWRITE CHARACTERISTICS COMMAND. WITH IE, ACK 


sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADORESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sORIVE Lg tt BITS 2-0 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, IE AND ACK 
sADORESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREAD COMMAND, IE AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


;8SELO AREA 
;BSEL1 AREA 
;SEL 2 AREA 


TSV7 - HARDWARE TESTS 1-8 


MACRO M1113 


TEST 4: BASIC READ DATA (FORWARD AND REVERSE ) 


3827 044204 000000 


3833 044206 100005 
3834 044210 100405 
3835 044212 102005 
3836 044214 177777 
3837 044216 000000 


3879 046530 
3880 046530 
3881 046534 012701 044040 


38682 046540 012721 100004 
3883 046544 012721 044050 


T2483: 


14 - JUN - 84 


. WORD 


14:17 


0 sDATA AREA 


.EVEN 
; TAPE MOTION PACKET COMMAND VALUES 


T24RN: 
T24WOR : 


T24CON: . 
T240LY: . 


. WORD 
. WORD 


WORD 
. WORD 
WORD 


100005 sREAD DATA (NEXT) 
100405 sREAD DATA RETRY 
102005 sWRITE CONTINOUS 
177777 sEND OF DATA 

0 s;DELAY STORAGE AREA 


3? 
sLOCAL TEXT MESSAGES FOR TEST 


T24LOR: .A 


"NEF Not Set After NON-EXECUTABLE FUNCTION’ 
‘RIS Not Set After READ Slieeek Into BOT’ 


‘TSSR Not Correct After I11l a Address Bits Set’ 


‘TSSR Not Correct After NXM y Address In Packet’ 
‘TSSR Not Correct After Illegel Mode Bits Set’ 

‘Illegel Address Bits, Feiled To Set ILA’ Bit In xSTO’ 
‘legal Mode Bits, Feiled To Set ILC Bit In XxSTO’ 
‘READ COMMAND Not Accepted’ 

‘TSSR Not Correct After WRITE DATA Command’ 

‘Tepe Not At BOT After REWIND Command’ 

‘Dete Written To Tape Not Equel To Dete Read From Tape’ 
‘READ DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 

‘TSSR Net Correct After READ COMMAND Re ject’ 

‘Rewind (POSITION) Command Not Accepted’ 

‘RAM Error, Correct Dete Pettern Not In Ram’ 

‘TSSR Init. Feiled After READ COMMAND’ 

‘Drive 7 Select Failed To Set “OFL” In TSSR’ 

‘TSSR Not Correct After READ DATA Command, SWE Bit Set’ 
‘TSSR Not Correct After READ a Command’ 

‘CVC Set, Didn''t Reset VCK In Message Buffer’ 

‘TSBA Not Correct After READ DATA Command 


‘WRITE SUBSYSTEM MEMORY Command Not nacentetl (RAM Read)’ 


‘Reading Long Record Failed To Set RLL Bit In XSTO' 
‘Reading Long Record Failed To Set RLS Bit In XSTO' 
‘Residuvel Byte Count Incorrect After Short Record Read’ 
‘Reading ng Long Record Failed To Give Tape Status Alert’ 
-ASCIZ ‘Basic Read dete (Forward and Reverse)’ 


sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
SWRITE SUBSYSTEM MEMORY COMMAND 


T24REST: 


sSAVE THE REGISTERS 


@T24PACKET,R1 sSTART OF THE PACKET 
#100004 ,(R1)>+ sWRITE SUBSYSTEM MEM. WITH ACK, 
@T24DATA,(R1)+ sADDRESS OF CHARAISTICS DATA BLOCK 


SEQ 9174 


TSV7 - HARDWARE TESTS 1- 


MACRO M1113 


14-JUN-84 14:17 


TEST 4: BASIC READ DATA (FORWARD AND REVERSE ) 


005021 
012721 
012721 
005021 


046564 012721 
046570 005021 
012711 
012702 
012762 
005742 
022702 
001371 
000207 


012701 
012721 
012721 
005021 


000012 
044062 


000024 
000000 
000030 
177777 


000000 


044150 
044200 


044062 643: MOV 


CLR (R1)- 
MOV #10. ,(R1)>+ 
MOV @T24BFR,(R1)-> 
CLR (R1)-> 
MOV @20.,(R1)+ 
CLR (R1)-> 
MOV @0,(R1) 
MOV 824 
0177777, T24QFRC(R2) 
TST -(R2 
CMP 00 ,R2 
BNE 64% 
RTS PC 
T24RT2: 
AVREG 
MOV @T24PK2,R1 


MOV #100206 ,(R1i)-+ 
MOV @T24BF2,(R1)+ 


CLR (R1)- 
MOV 06.,(R1)+ 
CLR (R1)- 
MOV @T24BF2,R1 
CLR (R1)+ 
CLR (R1) 
RTS PC 
T24R13: 
So vREG 
MOV @T24PK3,R1 


-SBTTL TEST 5S: SPACE RECORDS 


3¢ 


sEXTENDED ADORESS 
sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT an ZERO 

sNUMBER OF LOCATIONS TO BE CLEARED 
VALL ONES TO MESSAGE BUFFER 

sNEXT LOCATION 

;CKECK FOR END OF LOOP 

sKEEP GOING UNTIL DONE 

;RE TURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, IE 
sADORESS OF DATA BLOCK 

sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


;RETURN 


;SAVE THE REGISTERS 
;START OF THE PACKET 
;CLEAR AREA OUT 
sADORESS OF DATA BLOCK 
sEXTENDED ADDRESS 
3;SIZE OF DATA BLOCK IN BYTES 
;RE TURN 


L100Se: 


TRAP CsETstT 


; THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE 
oy REVERSE POSITTON COMMANDS OPERATE PROPERLY WHEN SPACING 


R NORMAL DATA RECORDS. OPERA 
sIS VERIFIED IN A SUBSEQUENT 


OVER TAPE MARKS 


TION WHEN SPACING 
TEST. THE BASIC WRITE DATA TEST 


;SHOULD HAVE BEEN RUN SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFUL 
;RESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTESTS. IN EACH 
30F THE SUBTESTS, THE TAPE IS ENTIRELY WRITTEN WITH RECORDS 


sOF VARYING SIZE 


S AND DATA CONTENT; THE FIRST 4 BYTES OF EACH 


sEACH SPACING OPERATION, THE TAPE POSITION IS VERIFIED BY READING 


;THE NEXT OR PREVIOUS 
sTHE EXPECTED RESULT. 
; 


RECORD AND COMPARING THE POSITION DATA WITH 


5 THE TEST CONSISTS OF THE FOLLOWING 8 SUBTESTS 


SEQ 9175 


TSV7 - HARDWARE TESTS 1-8 
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012737 


012737 


012737 


004737 
103427 


012727 
000000 
013727 
000000 


006446 
7364 


2 
176750 


016064 


000250 
002116 
177772 
177756 
054272 
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002170 


002206 


054272 


H14 


BGNTST 
MOV OEPRT2,EPRTSW ;SECONDARY ERROR MESSAGE 
JSR PC, KTOFF ;DON'T NEED LOTS OF MEMORY 
MOV @TST251D, RO SASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP ;D0 INITIAL TEST SETUP 
MOV #5, LOOPCNT ;PERFORM 5 ITERATIONS 
3¢ 
sTEST S, SUBTEST 1 
IVERIFIES THAT A SPACE RECORDS FORWARD COMMAND WITH 
;THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF 
;THE VOLUME CHECK (VCK) FLAG IS SET. 
as 
T25L00P 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T5.1: 
TRAP C$BSUB 
JSR PC, T2SREST ;SET COMMAND PACKET 
CLR TOS5CNT ;CLEAR THE RECORD COUNTER AREA 
JSR PC, TOSRT2 ;SET UP OTHER COMMAND PACKET 
JSR PC, TO5RTS ;SET UP OTHER COMMAND PACKET 
MOV #65000. , T2SDLY ;SET UP LOOP COUNTER 
J SSSSHSSSSASASSSHSSSEASSESHHSESESSSESSEASESSAHESESSSSESSEHHSHESESEESEHEEEEE 
s 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
WUTTTTTTTTTTTTTITITTTTTTTITITITTTTTTTTTTITTT TTT TT TTT TTT TTT TT TTT te 
S$: JSR PC, SOF INIT :D0 INITIALIZE ON CONTROLLER 
BCS 103 ;8R IF INIT WAS OK 
DELAY 250 ;DELAY IF REQUIRED 
MOV 0250,(PC)+ 
.WORD 0 
MOV LSDLY.(PC)+ 
.WORD 0 
DEC -6(PC) 
BNE ie 
DEC “22(PC) 
BNE .-20 
DEC T250Lr ;DEC DELAY COUNTER 
BNE S$ ;8R, IF LOOP IS REQUIRED 
INC FATFLG ;BUMP COUNT 


MOV TSSRCRS),R1 sCONTENTS OF TSSR REGISTER 

ERROF ERRNO, SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP CSERODF 
-WORD 501 


TSV7 - HARDWARE TESTS 1-8 


TEST 5: SPACE RECORDS 


047074 
047100 
047102 
047106 
047110 
047110 
047112 
047114 
047116 


047120 
047120 
047122 
047125 
047130 
047132 
047136 
047136 
047140 
047142 
047144 
047146 
047146 


047150 
047154 
047156 
047162 
047164 
047166 
047172 
047172 
047174 


003650 
012124 


013737 
012704 


012124 


104406 
004737 
103407 
010001 
005237 


104456 
000767 
055245 
012136 


104406 


013701 


002172 054130 


054110 


0107Se2 
002212 


011104 


002212 


14 
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WORD 
WORD 
10$: 
MOV UNITN, T250SW 
MOV @T25PACKET ,R4 


sSET UP DRIVE NUMBER 
sSUBROUTINE NEEDS PACKET ADDRESS 


FESARSSHASSHHHAEAAASSHHSSHHEAHEASESESEASESSEHEHEHEEHESEEEHEHESESHESEEHE SHOES 


; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
FPSRASAHSHSAASSHHASSSAHSSEAESHEEEESEAESESHESEHHEEHEEEEESEEHEHREKEEEOEE 


JSR PC,WRICHR s ISSUE WRITE CHARACTERISTICS 


BCS 15$ sBR, IF COMMAND ISSUED OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO, WRTMSG, SF IMSG sWRITE CHARACTERISTISC oy 
- WORD 
. WORD 
. WORD 


§ SSSSSSSSHSSSSSESSSSSSSSSHSSASSSSSHSSSHSSHEHESSSHSHHSESESSEEHEEHESHEEES 


; 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


‘ 
J FSSSSSSHSSSSSSSSSSSSSSSESHSSSESSSSESSHSSESHESSSHESSESSEESEESSESEESHESEESE 


15%: CKLOOP 


TRAP 

JSR PC ,REWINOD ;CALL TAPE REWIND COMMAND 

BCS 30% ;BR, IF NO PROBLEM 

MOV RO,R1 ;SAVE TSSR 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T2SRWN,PKTSSR sREWIND NOT ACCEPTED one 
. WORD 
. WORD 
. WORD 

30$: CKLOOP ;LOOP IF SELECTED 

TRAP 


f SSSASESSHSSSSASHSASHASESSSSOSSEHESSESSSESSHSSHESSSSSEHSHSEAEESESEHHEEESE 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
§ FPASEKESAESSEEESEHESSEHSSESOSSESSESSESSHSESSEHSSESESSESSSASHESSASESESEESEEESE 


MOV T25BFR+6,R1 sPICK UP XSTO 

MOV R1,R2 sSET UP EXPECTCD 

BIS @BIT1,R2 s;SET BOT BIT IN EXPECTED 

CMP R1,R2 sDOES EXP = REC'D 

BEQ 40% sBR, IF EQUAL (OK) 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T25B0T ,EXPREC ; TAPE NOT AT BOT AFTER ay 


. WORD 


SEQ 9177 


SFIERR 
SF IMSG 


WRTMSG 
SF IMSG 


C$cLP1 


CsciPl 


CSERHRD 
504 


$$ LT eS se +n sss 


TSv? 


- HARDWARE 


047332 
047336 
047340 
047344 
047346 
047350 
047354 
047354 
047356 
047360 


TESTS 1-8 
TEST 5S: SPACE RECORDS 


054435 
015564 


104406 
012703 
013737 


012737 
012704 


010337 
013777 
062737 
010465 
004737 
016501 
012702 
020102 
001411 
032701 
001014 
005237 


104456 
000771 
005111 
012136 


104406 
005203 
022703 
001340 
000415 


013701 
010102 


003114 


001000 


054140 
000001 


002212 
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054242 


054240 


133652 
054270 


40$: CKLOOP 


MOV $256. ,R3 
MOV FREE, T25RB 


SEQ 9178 


-WORD 12580T 
-WORD EXPREC 
s;LOOP IF SELECTED 


TRAP CSCLP1 
sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


FRSAAAAAKAAAAKESHSSEHESSEHEEEHEEHESHEHEEEAESHEEEEESEEESEEHEHEEHEREEEEEEBES 


;WRITE DATA,ACK,CVC=1 COMMAND 


‘ 
{SPARS AAESAAESSSHAESHSEREHESSSESEEEHEEESHAEKESHEEEKEEEEEEEEEKEEEEEHEEEEEEEEE 


MOV #140005, T2SPK3 
MOV @T25PK3 ,R4 


MOV R3,T25SZ 

MOV T2SCNT , @FREE 
ADO #1, T2SCNT 
MOV R4, TSOBCRS) 
JSR PC ,WAITF 

MOV TSSRCRS),R1 
MOV @SSR ,R2 


65$: 


BEQ 75$ 
BIT #BIT2,R1 
BNE 120% 


ERRHRD ERRNO,WRTERR,PKTSSR 


75$: CKLOOP 


INC R3 

CMP #512. ,R3 
BNE 65$ 

BR 125% 


120$: 


sWRITE DATA,ACK,CVC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 


;SET UP RECORD SIZE IN PACKET 
;LOAD UP RECORD COUNTER IN WRT BUFFER 
;GET READY FOR NEXT RECORD 

:ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

;BR, IF OK 

;CHECK FOR TAPE STATUS ALERT 

;BR, IF TSA IS SET (SUSPECT IS EOT) 
;BUMP COUN” 

;TSSR INCORRECT AFTER we Syete 


CSERHRD 
-WORD 505 
-WORD WRTERR 
-WORD PKTSSR 


;LOOP IF SELECTED 


s;BUMP RECORD SIZE 

sENO OF RECORD YET 

;BR, IF MORE RECORDS TO WRITE 
sENOUGH RECORDS 


TRAP CsCLP1 


{ SSSELSEEEEAEAESSEESEEESESESESESEASESEESESSESESESEHAESSEESSEEEESSEHEEEESEEREEEE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


‘ 
{FES ESSESSAESSESESSSESAAESAESSESESEAAESRSEEHESESESSHESHSEHESSESSEAEEHEEEEESEEESE 


MOV Se Amt 


G 
ERRDF ERRNO, T2SNET,EXPREC 


sQUICK CHECK FOR EOT SET 
s;SET UP EXPECTED 

sSET THE EOT BIT XSTC 

;IS THE EOT BIT SET IN XSTO 
;BR, IF SET (GOOD) 


;BUMP COUNT 

;DEVICE FATAL NOT EOT FOUND ETC. 
TRAP CSERDOF 
.WORD 506 
.WORD T2SNET 


TSV7 - HARDWARE TESTS 1-8 
TEST 5S: SPACE RECORDS 


4094 
4095 
4096 
4097 
4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4109 


4144 


047362 
047364 


047364 
047370 
047372 
047374 
047400 
047400 
047402 
047404 
047406 
047410 
047410 
047412 
047420 


015564 


004737 
103407 
%10001 
005237 


104456 
000773 
055245 
012136 


104406 
012737 
012704 


004737 
103407 
005237 
010001 


104456 
000774 


005054 
012124 


104406 
005737 
001044 


112737 
112737 
012704 
010465 
004737 
103407 
010001 
005237 


104456 
000775 
054274 
012136 


011104 


002212 


000007 
054110 


010752 
002212 


002216 


000200 
000010 
054220 
000000 


016426 


002212 


MACRO M1113 


054130 


054251 
054250 


125$: 


14 - JUN-84 


Ka 


14:17 


. WORD 


FRHSAARAAAHAERAAAEHSAAEEEHEEHEHAEEAREHSHESSHEKEEESHEHEESEEKESHEHRESSEEH BESS 


;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


. 
{ SSSHRAAASAASSSSAHSHAHHHEHESAESESEEHEESHASESESESEESESEEEESHESEEEEESEHEEES 


130$: 


ERRHRD 


CKLOOP 


MOV 
MOV 


PC ,REWIND 

130$ 

RO,R1 

FATFLG 

ERRNO, T2SRWN, PKTSSR 


#7, T2S50SW 
@T2SPACKET ,R4 


;CALL TAPE REWIND COMMAND 


;SAVE TSSR 

;BUMP COUNT 

sREWIND NOT ACCEPTED 
TRAP 
. WORD 
. WORD 
. WORD 

;LOOP IF SELECTED 
TRAP 


;SET UP DRIVE NUMBER 


sSUBROUTINE NEEDS PACKET ADDRESS 


FPSSAESASSSSSAASASAAEASSASEESSESESHESHSESEASEKSKESAESEHSSSSSEHHESEEESESEEEEE 


; WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


5 
{ SSSAHHSSSESHSEARESSESSSEEKASSEEEHEASEEERESESEAESESESEEEEEESESESEEHEESESE 


140$: 


150%: 


PC ,WRTCHR 

140$ 

FATFLG 

RO,R1 

ERRNO, WRTMSG, SF IMSG 


EXTFEA 
160% 


#200, T258S1 

#10, T258S0 

@T25PK2 ,R4 

R4, TSOBC(RS) 
PC,CHKTSSR 

150% 

RO,R1 

FATFLG 

ERRNO, T25SSR,PKTSSR 


sISSUE WRITE CHARACTERISTICS 
3;BR, IF COMMAND ISSUED OK 
sBUMP COUNT 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP 
. WORD 
. WORD 
. WORD 
s;SCOPE LOOP 
TRAP 
sCHECK FOR EXTENDED FEATURES 
;B8R IF SWITCH IS ON 


SEG 0179 


£XPREC 


CsCLPi 


CSERHRD 
508 


WRTMSG 
SF IMSG 


CsCLP1 


sWRITE MISCELLANEOUS CONT/READ STATUS 


sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 


sWRITE SUBSYS MEM PACKET 
s ISSUE COMMAND 

s;WAIT FOR SSR 

;B8R, IF NO ERROR 

sERROR, SAVE TSSR 


;BUMP COUNT 

;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CSERHRD 
. WORD 509 
.WORD T25SSR 
.WORD PKTSSR 


;LOOP IF SELECTED 


- HAROWARE TESTS 1-8 


TSvV7 
TEST 3: 


4145 
4146 
4147 


SPACE RECORDS 
047530 104406 


047532 012737 
047540 012704 


047616 012124 
047620 104406 


047622 012737 
047630 012737 


000007 
054110 


010752 
002212 


000002 
000100 


002212 


140010 
00000 

054240 
000000 


Lia 


MACRO M1113 14-JUN-84 14:17 SEQ 0180 
TRAP CS$CLP1 
054130 MOV 07, T2S0SW sSET UP DRIVE NUMBER 
MOV OT25SPACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
FPRAAAHSAAASEAAEREAEEHEASEEOAEAEEAEHESEAEHESEEEEEHEEEEEEEEEEEEOEEES 
: 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
FRSA AESHAEEEEEEEAASHAEEEEASEEEERESEAESEEEHRAEHESESESEEESEEDEEOEE 
JSR PC ,WRTCHR ; ISSUE WRITE CHARACTERISTICS 
BCS 160$ ;BR, IF COMMAND ISSUED OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG s;WRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 510 
«WORD WRTMSG 
-WORD SFIMSG 
160$: CKLOOP ;SCOPE L|0P 
TRAP CSCLP1 
MOV TSSRCRS),R1 3;GET TSSR CONTENTS 
BIT OOFL ,R1 ;CHECK FOR THE OFFLINE BIT SET 
BNE 170$ ;BR, IF OFFLINE (GOOD) 
INC FATFLG ;BUMP COUNT 
ERROF ERRNO, T2SOFL ,SFIMSG OFF LINE SHOULD HAVE ? ~ By a 
THORO $11 
-WORD T2SOFL 
-WORD SFIMSG 
170$: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
J SSSSSSSSASSASSSKSSAHSESSSAEHSESHEESSSESOHSESASESSESEEESEHESEESEEEESEDEEE 
} 
;SPACE FORWARD COMMAND IN PLACE 
3 
{ SSSSSSHHSSSSSSSESSSSHSSHHSSSESSEHSESSHSSSSSSSESHEHEHESSESHEEESEHSEHEHEEEHEEEE 
054240 180%: MOV #140010, T25PK3 ;SPACE FORWARD COMMAND IN PLACE 
054242 MOV #1, T25R8 sNUMBER OF RECOROS TO SPACE 
MOV OT25PK3 ,R4 3R4 = POINTER TO PACKET 
MOV R4, TSOBCRS) s; ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sGET TSSR CONTENTS 
MOV @SSR!SC!OFL!BIT1!8IT2, R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 190% ;BR, IF OK ESP. FUNCTION REJECT 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T25TM,PKTSSR ;TSSR INCORRECT AFTER TAPE MOTION CMD 
TRAP CSERHRD 
-WORD 512 
-WORD T25TM 
.WORD PKTSSR 
190$: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
ENOSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


TSV7 - HARDWARE TESTS 1-8 
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4195 


047704 
047704 
047706 
047714 
047716 
047722 


047740 
047744 
047746 
047752 
047754 
047754 
047756 
047760 
047762 
047764 


047772 


104403 
023727 
103402 
004737 


104402 
004737 
004737 

)4737 


012124 
012737 


012704 


004737 
103407 
005237 
010001 


104456 
001002 


002212 
017272 


055456 
055612 
055550 


016064 
002212 


000007 
054110 


010752 
002212 


MACRO M1113 14-JUN-84 14;17 


000017 


054130 


CMP FATFLG,4@15. 
BLO 999$ 

JSR PC ,CKDROP 
999$: 


;TEST 5S, SUBTEST 2 


SEQ 0181 


L10072: 
TRAP CsES.8 
;IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


;VERIFIES THAT A SPACE RECORDS REVERSE COMMAND WITH 
THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF 


; THE VOLUME CKECK (VCK) FLAG IS SET. 


; BGNSUB 
JSR PC, T2SREST 


JSR PC, T2SRTS 
JSR PC, T2SRT2] 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
TS.2: 


TRAP C$BSUB 
;SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 


{SSSESSSSSSSSSHSHKSSSSSSSSHESHESSESSHESEASEESAASSSSESHSSESSSKESEEEEHSSESKESD 


;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


. 
FSAAAASSSAHSSASEHSEESESSEESSEEAAHEAOEEESESHSHSESHESSEAEESEAEEEEEEESESEHSEEE 


JSR PC, SOF INIT 


BCS 10$ 
INC FATFLG 
MOV 


RO,R1 
ERROF ERRNO, SFIERR,SFIMSG 


10$: MOV 07, T250SW 
MOV OT2SPACKET ,R4 


300 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 
;BUMP COUNT 
;CONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 


-WORD 513 
-WORD SFIERR 
-WORD SFIMSG 


;SET UP DRIVE NUMBER 
; SUBROUTINE NEEDS PACKET ADDRESS 


{SSSAEHKSSEREASSEASSSHESSSSEAAEESESSEHKASSHAEKESESEEKESEREEEEEEEEERESEEE 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


, 
{ESSE SSAERSEEARESSEEREAEEESEEEAEHEEARAASSRAASEEEEEKAESEESSEKESRESERSEHKESES 


JSR PC,WRTCHR 


BCS 15$ 
INC FATFLG 
MOV RO,R1 


ERRHRD ERRNO,WRTMSG, SF IMSG 


; ISSUE WRITE CHARACTERISTICS 

;BR, IF COMMAND ISSUED OK 

s;BUMP COUNT 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 514 


TSV7 - HARDWARE TESTS 1-8 
TEST 5S: SPACE RECORDS 


050016 
050020 


005054 
012124 


004737 
103407 
005237 
010001 


104456 
001905 
005054 


011104 


002212 


002216 


000200 
000010 
054220 
000000 
016426 


002212 


000007 
054110 


010752 
002212 


N14 


MACRO M1113 14-JUN-84 14:17 


054251 
054250 


054130 


. AORD 
. WORD 


FSAAaASARESRSESARAAAEAAEERAREERASHESEREREESEEESAEAEEEEEEEEEEEEEEAEREEEOERS 


;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
{ FHARAAKSASASSSESSERESEKERHESEAESEAEEHEEAESSEEEAAEEHEEEEESEAREKERSESEHEREKRE 


15$: CKLOOP 


TRAP 

JSR PC ,REWIND s;CALL TAPE REWIND COMMAND 

BCS 30$ ;BR, IF NO PROBLEM 

MOV RO,R1 sSAVE TSSR 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T2SRWN,PKTSSR sREWIND NOT ACCEPTED _— 
. WORD 
. WORD 
. WORD 


30$: CKLOOP ;LOOP IF SELECTED 


TRAP 
140$: TST EXTFEA CHECK FOR EXTENDED FEATURES Sw 
BNE 160$ BR IF SWITCH IS ON 


MOVB #200, T258S1 
MOVB #10, T258S0 
MOV @T2S5PK2 ,R4 
MOV R4, TSOBCRS) 
JSR PC, CHKTSSR 
BLS 150$ ;8R, IF NO ERROR 


sWRITE SUBSYS MEM PACKET 


MOV RO,R1 sERROR, SAVE TSSR 
INC FATFLG BUMP COUNT 
ERRHRD ERRNO, T25SSR,PKTSSR ;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CSERHRD 
-WORD 516 
-WORD T2S5SSR 
-WORD PKTSSR 
150$: CKLOOP ;LOOP IF SELECTED 
TRAP CsCLP1 
MOV #7, T2S0SW ;SET UP DRIVE NUMBER 
MOV @T2SPACKET ,R4 :; SUBROUTINE NEEDS PACKET ADDRESS 
jPPRASEAEEEEEEREEEEREESEEAEEESEEREREEEEEESESEREREREEEREDEEREEEEE EEE 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
{RRRARRERESEREEAEESEEEEESEEEEEEEEEAEE EERE EEEESERESEEDEESREREEEERE DES 
JSR PC,WRTCHR ; ISSUE WRITE CHARACTERISTICS 
BCS 160$ ;BR, IF COMMAND ISSUED OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG ;WRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 517 
-WORD  WRTMSG 


SEQ 0182 


WRTMSG 
SF IMSG 


CsCLP1 


CSERHRD 


C$CLP1 
SWITCH 


s;WRITE MISCELLANEOUS CONT/READ STATUS 
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 


TSV7 - HAROWARE TESTS 1-8 MACRO M1113 14 JUN 84 14:17 SEQ 9183 
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050166 012124 . WORD SFIMSG . 

4296 050170 1605: CKLOOP sSCOPE LOOP 
050170 104406 TRAP C8Ci Pi 

4299 050172 916501 000002 MOV TSSRC(RS),R1 sGET TSSR CONTENTS 

4300 050176 032701 000100 BIT OOFL .R1 sCHECK FOR THE OFFLINE BIT SE’ 

4301 050202 001006 BNE 1708 :6R, IF OFFLINE (GOOD) 

4302 050204 005237 002212 INC FATFLG ; BUMP COUNT 

4306 050210 ERROF ERRNO, T250F 1... SF IMSG }OFF LINE SHOULD HAVE —_ ~ A (BAD) 
050210 104455 CSERDF 
050212 001006 MORO 516 
050214 055314 . WORD T250FL 
050216 012124 . WORD SF IMSG 

4307 050220 1708: CKLOOP sLOOP IF SELECTED 

—_ 050220 104406 TRAP CSCLPl 

& 

4309 F SSHSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSSSSESESSSSSSSHSSSSESSESSESSESCESESOSESEES 

4310 3 

saat sSPACE REVERSE COMMAND IN PLACE 

431 H 

4313 F SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSOSESES 

4314 

4315 050222 012737 100410 054240 160%: MOV #100410, T25PK5 sSPACE REVERSE COMMAND IN PLACE 

4316 050230 012737 000001 054242 MOV #1, T25R8 sNUMBER OF RECORDS TO SPACE 

4317 050236 012704 054240 MOV @T25PK3 ,R4 3R4 = POINTER TO PACKET 

4316 050242 9010465 000000 MOV R4, TSDOB(RS ) sISSUE COMMAND 

4319 050246 737 016340 JSR PC ,WAITF ;4AIT FOR SSR TO SET 

4 050252 016501 000002 MOV TSSR(RS >,R GET TSSR CONTENTS 

4321 050256 012702 100306 MOV OSSR!SC1OFL 1BIT1!61T2,R2 sSET WP EXPECTED 

& 050262 020102 CMP R1,R2 ;ARE THEY EQUAL 

4323 050264 001406 BEQ 1908 3;BR, IF OK Bet FUNCTION REJECT 

4324 050266 005237 002212 INC FATFL ;BUMP COUN 

43286 050272 ERRHROD ERRNO. T25TM,PKTSSR ;TSSR GRCORRECT AFTER _* MOTION CMD 
050272 104456 TRAP CSERHROD 
050274 001007 . WORD 519 
050276 054502 . WORD T25T™ 
050300 012136 WORD PKTSSR 

4329 050302 1908: CKLOOP ;LOOP IF SELECTED 
050 104406 TRAP CsCLPl 

4330 050304 ENDSUB 3>>>>>>>>>>>> END — >>>>>>>> >>>? 
050 L10073 
050 104403 TRAP CsESuUB 

4331 050306 023727 002212 000017 CMP FATFLG,@15. 1IS ERROR COUNT AT 25 

4332 050314 103402 BLO 999% ;BR, IF LESS THAN 25 

4333 050316 004737 017272 JSR PC ,CKDOROP ;TRY TO OROP THE UNIT 

4334 050322 999%: 

4335 

4336 i¢ 

4337 : 

—— er 5, SUBTEST 3 

4340 i VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE ONE 

aban sRECORD OFF BOT AND CAUSES BOT STATUS TO BE CLEARED. 

434s 8 

4344 F 

4345 ; 


BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 





TSV7 - HARDWARE TESTS 1-8 MACRO M1115 14 JUN-84 14:17 SEQ 0184 
TEST S: SPACE RECORDS 
050322 5.3: 
050322 104402 TRAP C$6S5UB 
4347 050324 004737 055456 JSR PC, T2SREST 3SET COMMAND PACKET 
4348 050330 004737 055550 JSR PC, T25SRT? sSET UP OTHER COMMAND PACKE™ 
4349 050334 004737 055612 JSR PC, T25SRTS :SET UP OTHER COMMAND PACWET 
4 
tty { COHSOHOAESEHSOHSESEAEEHEESEEEOSESEESESEHOEOOHEEEEHOESEOESEOEEESESE 
4352 3 
4353 s ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY SIT CLEAR IF ERROR 
43%4 
4355 s asonsonseseoonnsnsnsnesnosesesonossnenesnnensneneoseoooonnonNNens 
4356 
4357 050340 004737 016064 JSR PC SOF INIT 300 ght red a CONTROLLER 
4358 050344 103407 bcs 10$ sBR IF oO Ss OK 
4359 050346 005237 002212 INC FATFLG ;BUNP COUN 
4363 050352 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
4364 050354 ERROF ERRNO, SFIERR, SF IMSG sFATAL ERROR TSSR WAS = Ox 
050354 104455 TRAP CSEROF 
050356 001010 . WORD 
050360 003650 . WORD SFIERR 
050362 012124 “WORD SF IMSG 
soon 050364 013737 002172 054130 108: MOV UNITN, T-50SW ;SET UP ORIVE NUMBER 
one 050372 012704 054110 MOV @T25PACKET ,R4 3; SUBROUTINE NEEDS PACKET ADORESS 
4369 PITTI itititiiiiiiiitiiitiiiiiiiiiiiiiitiiitiiitiiiititiitiiitt iit 
4370 3 
pe sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 
4373 WYVTTTTTTITITITTTTTTTTTTTTTTITTTTTT TTT TTT TTT T TTT TTT TTT TTT TTT TTT 
4374 
4375 050376 004737 010752 JSR PC, WRICHR sISSUE WRITE CHARACTERISTICS 
4376 050402 103407 ecs 15% 3;6R, IF COMMAND ISSUED Ok 
4377 050404 005237 002212 INC FATFLG ;BUMP OQUNT 
4381 050410 010001 MOV RO,R1 ; SAVE CONTENTS OF TSSR 
4382 050412 ERRHRD ERRNO,WRIMSG, SF IMSG ;WRITE CHARACTERISTISC FAILED 
050412 104456 TRAP CSERHRO 
050414 001011 . WORD S21 
050416 005054 . WORD WRTMSG | 
seen 050420 012124 . WORD SF IMSG 
4384 J SSHSSSSSSSSSSESHSSSSSHSSHSSSSSSHSSSSHSSHHSSSSSSSSSESSEHSSSESESESOSESEEEE ' 
4385 5 
cot ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
4388 s seesabeanennennsnabenmmnnbiieisnbsabeebaeneenabeessnesaeebenes 
4389 
4390 050422 15%: CKLOOP 
050422 104406 TRAP CsCLPl 
4391 050424 004737 011104 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND | 
4392 050430 103407 Bcs 30% ;8R, IF NO PROBLEM 
4393 050432 010001 MOV RO,R1 ;SAVE TSSR 
4394 050434 005237 002212 INC FATF LG sBUMP COUNT 
4396 050440 ERRHRE ERRNO, TOSRWN,PKTSSR } REWIND NOT ACCEPTED 
050440 104456 TRAP CSERHRD 


050442 001012 -WORD S22 
050444 055245 -WORD T25RWN 


TSV7 - HAROWARE TESTS 1-8 


TEST 5S: 


4399 


SPACE 


050446 
050450 
050450 


RECORDS 
012136 
104406 


013701 
010102 
052702 


104406 
012737 


012737 
012704 


010465 
004737 


054140 
000002 


002212 


054242 


MACRO M1113 14 JUN-84 14:17 SEQ 918% 
. WORD PrTSSe 
308: CKLOOP sLOOP IF SELECTED 
Trap CS$Ci Ph 
WITT ITT itiiiiiiiiiitiitiiiiiitiiriiiiiiiiiiitiiiitiiititiitiiiittTy 
z 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
; 
Per ITTTitT iii iiiiiiiiiiiiitiiiiiiiitiiiitiiiiiiiiiiiiiitiitititiiiit 
MOV TESBFR+6,R1 ;PICK UP xSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS @BIT1,R2 sSET BOT BIT Ly EXPECTED 
CMP P1,R2 ;00ES EXP = REC'D 
BEQ 40% 3BR, IF EQUAL (OK) 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T2580T ,EXPREC ; TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
. WORD 523 
. WORD T25807 
. WORD EXPREC 
40$: CKLOOP 3LOOP IF SELECTED 
TRAP CSCLP1 
MOV #000001 , T25°B sNUMBER OF RECORDS TO SPACE OVER 
PITITITi tii iitiiiiiiitiitieri ii iiiiitiriiiititiititiitiiiiiiiiiitt) 
+ 
sSPACE FORWARD,ACK,CVC=1 COMMAND 
H 
PPrTiritiiitiititiiiiiiiiiiiititiiiiiiiiititiiiiiiitiitiitiiitittitit 
MOV #140010, T25PK3 sSPACE FORWARD,ACK,CVC=1 COMMAND 
‘ MOV OT25PK3 ,R4 ;SET UP R4 WITH PACKET ADDRESS 
658: 
MOV R4, 2 + Saal s ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSR(RS), R1 ;GET TSSR CONTENTS 
MOV @SSR ,R2 ;SET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 75$% 3BR, IF OK 
BIT #BIT2,R1 sCHECK FOR TAPE STATUS ALERT 
BNE 75% 38R, IF TSA IS SET (SUSPECT IS EOT) 
INC FATFLG ; BUMP COUNT 
ERRHRD ERRNO, T2SWOE ,EXPREC sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
. WORD 524 
. WORD T25WDE 
. WORD EXPREC 
75%: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
1208: 


DLS 


§ SSSSSSSSSHSHESESESESSESSESESSe SOSSHSSASHHASEHHEKESESESASHESSSESESSEEEEED 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


2 
FPSSSSESSSESSHSHASSSSHSESSESSSHSSSHEESSEKSSEHHSEHHESEEHSEHHHEHHESOEEESE 


TSv? 


TEST 5: 


4497 


- HARDWARE TESTS 1-8 


SPACE RECORDS 


013701 


012737 


012737 
013737 


054140 
000002 


002212 


055612 


000401 054246 


054240 
054242 


132162 
000001 


002212 


002212 000017 


MACRO M1115 


125%: 


14- JUN. 84 


MOV 


14:17 


i Ata 


PC, T25RTS 
#257. ,T25SZ 


SEQ 0186 


sQUICK CHECK FOR BOT SET 
sSET UP EXPECTED 

;CLEAR THE BOT BIT (xSTO) 
sIS THE EOT BIT SET IN XSTO 
sBR, IF SET (GOOD) 


sBUMP COUNT 
:B0T NOT CLEARED AFTER — FROM BOT 


J SSSSSSSSSASSSSASSSHSESSSESHESSSSHHSEESSSESHSSSESESSEOSSSSESEEESEHOKESEE 


: 
sREAD DATA COMMAND IN PLACE 


3 
J SSASAASSSAHSSSHSSHSSSSSHSSSESASESSEESESSADSSSSSSSESSESSSSESEESEEESESEES 


1903: 


2003: 


#140001, T25PK3 
25R8 


PC,.WA 
TSSR(RS),R1 
@SSR ,R2 
R1,R2 


190% 
FATFLG 
ERRNO ,,RDERR ,PKTSSR 


@FREE ,R1 

#1,R2 

R1,R2 

200% 

FATFLG 

ERRNO, T2SWNG , EXPREC 


FATFLG,@15. 
999% 


TRAP CSERHRD 

-WORD 525 
«WORD T2S6NC 
-WORD EXPREC 
TRAP CSCLP1 

sCLEAN UP PACKET 

sSET THE CORRECT SIZE uP 

sREAD DATA COMMAND IN PLACE 

sREAD BUFFER ADDRESS TO PACKET 

3R4 = POINTER TO PACKET 

s ISSUE COMMAND 

sWAIT FOR SSP TO SET 

;GET TSSR CONTENTS 

sSET UP EXPECTE 

sARE THEY EQUAL 

3BR, IF OK ESP. FUNCTION REJECT 

sBUMP COUNT 

;TSSR INCORRECT AFTER READ DATA CMD 
TRAP CSERHRD 
-WORD 526 
-WORD RDERR 
-WORD PKTSSR 

;LOOP IF SELECTED 
TRAP C$CLPl 

s;GET FIRST WORD FROM BUFFER 

sSET UP EXPECTED 

sWAS RECORD NUMBERED 

38R, IF CORRECT RECORD 

1 BUMP COUNT 

sSHOULD HAVE BEEN RECORD NUMBER 1 
TRAP CSERHRD 
«WORD S27 
-WORD T2SWNG 
-WORD EXPREC 
TRAP CsCLPi 

3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L10074: 

TRAP CsESUB 


IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 


TSv7 


TEST 5S: SPACE RECORDS 


449g 
4500 


4513 
4514 


4550 


050772 
050776 


004737 


104402 
004737 
004737 
004737 


012124 
013737 


012704 


005054 
012124 
104406 


- HARDWARE TESTS 1-8 


017272 


055456 
055550 
055612 


016064 
002212 


002172 
054110 


010752 
002212 


MACRO M1113 


054130 


Pao 


14-JUN-84 14:17 


JSR PC ,CKDROP 
9993: 


sTEST 5S, SUBTEST 4 


SEQ 0187 


;TRY TO DROP THE UNIT 


; VERIFIES THAT SPACE yg pane CAN SPACE BACK 


sOVER THE FIRST RECORD ON T 


BGNSUB 


JSR PC, T2SREST 
JSR PC, T2SRT2 
JSR PC, T2SRTS 


3>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>> 
15.4: 


FSSHASHSSSSAESHSSASSSSSHSSSESSEAHSEHSESSEEHEHSEHSSESHESESESEHESSHESEEEEEEEEEE 


; 
: ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


; 
FSSSSANSSASAASSSSSSHSSHSSSHESSSSESESESSEHESSSHESHSESSEEEEEEESEESESHEENEHESCE 


JSR PC, SOF INIT 

BCS 20% 

INC FATFLG 

MOV RO,R1 

ERROF ERRNO,SFIERR,SFIMSG 
20%; MOV UNITN, T250SW 


MOV @T2SPACKET ,R4 


TRAP CsBSuUB8 

sSET COMMAND PACKET 

3SET UP CTHER COMMAND PACKET 

sSET UP OTHER COMMAND PACKET 

300 INITIALIZE a CONTROLLER 

38R IF INIT WAS OK 

;BUMP COUNT 

S CONTENTS OF TSSR REGISTER 

;FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDOF 
-WORD 528 
-WORD SFIERR 

SF IMSG 


sSET UP DRIVE NUMBER 
;SUBROUTINE NEEDS PACKET ADDRESS 


F SSSSSSSSSSSSSESSSSHSSEASSSHSSHSSSSEASESSSHSSSESASASHSESSSSSESESSEKESSEERESEE 


; 
sWHITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


° 
PSOHAKATKEHAE SHER HAASE HELACHESSHSHAHROHSEHASHHERESEHAKHERAHEHHASREHASHRH HERE 


+ + ston 

FATFLG 

MOV RO,R1 

ERRHRD ERRNO,WRTMSG, SFIMSG 


JSR 
BCS 
INC 


25$: CKLOOP 


s ISSUE WRITE CHARACTERISTICS 
3BR, COMMAND ISSUED OK 

368 OUNT 

sSAVE CONTENTS TSSR 

‘WRITE CHARACTERISTISC > 


CSERHRD 
THORO Se9 
-WORD  WRTMSG 
-WORD SFIMSG 
sLOOP IF SELECTED 
TRAP CsCLP1 


TSv?7 


4601 


- HARDWARE TESTS 1-8 
TEST Ss: SPACE RECORDS 


051124 


051214 
051214 


004737 
103407 
010001 
005237 


104456 
001622 
055245 
012136 


104406 


013701 


012703 
004737 
103410 
016501 
005237 


104456 
001024 
054355 
0°2172 


104406 


611104 


002212 


000001 
010556 


000002 
002212 


Git 


MACRO M1113 14-JUN-84 14:17 SEQ 0188 


FESSSSSSSSSSHSHSSEHSHASASHSSESHESSSHHSHESHSESEHESEHSESESHEEEHEHEEEEHEEEEHEESEEE 


; 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


i 
FSSSSAHSSHSSSESSSSSHSSSHSSEESSSASHEHSEHHSSESSESHESSSEESESEHEEEHESEESEEEEEEEE 


JSR PC ,REWINOD sCALL TAPE REWIND COMMAND 
BCS 30% :BR, IF NO PROBLEM 
Tren RO,R1 sSAVE TSSR 

FATFLG sBUMP COUNT 


ERRHRD ERRNO, T2SRWN,PKTSSR sREWIND NOT ACCEPTED 


-WORD 530 
-YORD T2SRWN 
bORD PKTSSR 


30$: CKLOOP sLOOP IF SELECTED 
TRAP CsCLP1 


J SSSSSASSASSSSSSHSSESHSESSHESHESHSSHEHSESESSESSSESESHSSHEESESESEESEEEEEE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


a 
J SSSHSSHSASSSSSOSSSSSHHHSSSSSESHSSSSSESESHSESSESSESSHHHSHEESESEEESEEDEE 


MOV T2S5BFR+6,R1 sPICK UP XSTO 

MOV R1.R2 SET UP EXPECTED 

BIS oBIT1,R2 sSET BOT BIT IN EXPECTED 

CMP R1,R2 sDOES EXP = REC'D 

BEQ 40% :BR, IF EQUAL (OK) 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T.’SBOT,EXPREC ; TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 531 
-WORD T2S580T 
-WORD EXPREC 

40$: CKLOOP ;LOOP IF SELECTED 


TRAP CsCLP1 
F SSSSSSSSSSSSSESSSHASSHHSESASAHASEASSESESHEESESSESHSSOSSEHESESEEESEESESES 


; 
sISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
sBIT 15 SETS DIRECTION - O=FORWARD 1 REVERSE 


3 
F SSSSSESSEHSESSSSSSSSESSESESSEHSESSESHESESSHASSSSSESEHASSSSSHSSSSESHSHESSESEHSEEEE 


MOV #000001 ,R3 sNUMBER OF RECORDS TO SPACE FORWARD 
JSR PC, SPACE sCALI. SPACE COMMAND 

BCS 50% sCHECK FOR ERROR 

MOV TSSRC(RS),R1 sGET TSSR CONTENTS 

INC FATFLG sBUMP COUNT 


ERRHRD ERRNO, T2SWOE , SFFMSG s;SPACE FORWARD FAILED 


WORD 532 
WORD T2SWOE 
WORD SFFMSG 


50$: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 


TSV7 - HARDWARE TESTS 1-8 
TEST 5S: SPACE RECORDS 


4602 051216 
460 


012737 


012737 


012704 


104406 


012703 
013737 


012737 


000001 


140410 
054240 
0000C J 
016340 
000002 
000200 


002212 


000400 
003114 


131516 
000000 


002212 


MACRO M1113 14-JUN-84 14:17 


054242 


054240 


054242 


054240 


MOV #1, T25RB 


FRSRAAHSSSAAASAHHESEAHEAESEEAESESSESEEEEEESHEEEEEEEEHEEEHESHEEEEEEOEEED 


; 
sSPACE REVERSE ,ACK,CVC=1 COMMAND 


é 
{ SSHSSAHHASHHASSSSHAASSHAESESSESESAKASSESHHEHESESSEEEEEHEEESHSEEEEEE TEES 


MOV #140410, T2SPK3 
MOV OT25PK3 ,R4 


MOV R4, TSOBCRS ) 
PC ,WAITF 


MOV TSSRCRS),R1 

MOV @SSR,R2 

CMP R1,R2 

BEQ 75$ 

FATFLG 

ERRHRD ERRNO, T2SWDE ,PKTSSR 


65%: 


7S$: CKLOOP 


1208: 
MOV #256. ,R3 
MOV FREE , T25SRB 


SEQ 9189 

;NUMBER OF RECORDS TO SPACE OVER 

sSPACE REVERSE ,ACK,CVC=1 COMMAND 

;SET UP R4 WITH PACKET ADDRESS 

sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 

sBUMP COUNT 

:TSSR INCORRECT AFTER READ DATA 
TRAP CsERHRD 
. WORD 533 
.WORD T2SWDE 
WORD PKTSSR 


;LOOP IF SELECTED 
TRAP CsCLP1 


sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


{ SSSSSSSSSHSEAEHSHSESESESESEESASSSSEHESESESHSSESSEAESESEESHEHESEAHESEEAESESEEE 


;READ DATA, ACK,CVC=1 COMMAND 


3 
FSSSHASSASSSSESSASSHSHASHESSSESESESSSSHESESESSEHAHSHESSHESESESHESEEEESEEEEES 


MOV #140001 , T2SPK3 
165$: a OT25PK3 ,R4 


JSR PC ,WAITF 
MOV TSSRCRS),R1 
MOV @SSR,R 

CMP R1,R2 

BEQ 170% 


G 
ERRHRD ERRNO,RDERR ,PKTSSR 


170%: CKLOOP 

MOV @FREE ,R1 
#0 ,R2 

CMP R1,R2 
200% 

INC FATFLG 





sREAD DATA,ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADORESS 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 


;8R, IF OK 

sBUMP COUNT 

;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 534 
.WORD RDERR 
.WORD PKTSSR 


;LOOP IF SELECTED 
CsCLP: 


TRAP 
sGET FIRST WORD FROM BUFFER 
sSET UP EXPECTED 
sWAS RECORD NUMBERED 1 
sBR, IF CORRECT RECORD 
;BUMP COUNT 


TSV7 - HARDWARE TESTS 1-8 


TEST 5: 


4658 


4659 


4696 
4697 


SPACE 


051412 
051412 
051414 
051416 
051420 
051422 
051422 
051424 
051424 
051424 
051426 
051434 
051436 
051442 


RECORDS 


104456 
001027 
054645 
015564 


104406 


104403 
023727 
103402 
004737 


104402 
004737 
004737 
004737 
013737 
162737 
013737 


004737 
103427 


012727 
000000 
013727 
000000 


002212 
017272 


016064 


000250 
002116 
177772 
177756 
054272 


MACRO M1113 


000017 


054266 
054272 


ERRHRD 


200$: CKLOOP 


a> 


14-JUN-84 14:17 


FRRNO, TOSWNG,,EXPREC 


SEQ 0190 
;SHOULD HAVE BEEN RECORD NUMBER i 
TRAP CSERMRD 
-WORD 535 
-WORD T25WNG 
-WORD EXPREC 


TRAP CSCLP1 
3>>>>>>>>>>>> END SUBTEST »>>>> >>> >>> 


L10075: 
TRAP CsESUB 
:1S ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
TS.5: 


TRAP C$BSUB 
3SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
;HOLO NUMBER OF RECORDS 
sACTUAL NUMBER OF RECORDS ON TAPE 
;SET UP REWIND DELAY COUNTER 


{ SSSESSSESSHAESSSESHKSESSEKSESSESSSESAESSSESSSESSSESEHHEHSSEHESSHEHEESEEEESEHESE 


J FSSAASSEHSSSSHSEHSSSSESESSSSSESSESSEEHESESSSSESSESESSESESHSESESEESESEESEOES 


;D0 INITIALIZE ON CONTROLLER 
;8R IF INIT WAS OK 
;WAIT ABOUT .25 SECONDS 
MOV #250, (PC)« 
MOV L$0L.(PC)« 
DEC “6(PC) 
DEC -22(PC) 
.-20 
;DEC COUNTER 


ENDSUB 

CMP FATFLG, 415. 

BLO 999$ 

JSR PC ,CKDROP 
999$: 
; 
;TEST 5S, SUBTEST 5S 
3 
; VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE A 
sMULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE 
sMAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE, 
sWHICH EVER IS LESS. 

BGNSUB 

JSR PC, T25REST 

JSR PC, T2SRT2 

JSR PC, T2SRT3 

MOV 25CNT , T2ESCN2 

SUB 92, T25CN2 

MOV T2SCNT, T2S50LY 
é 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
o 
10$: JSR PC, SOFINIT 

BCS 20$ 

DELAY 250 

DEC T250L Y 

BNE 10$ 


BR, IF MORE LOOPS REQUIRED 


TSvV? 
Test 3 


4698 
4699 
4703 


: SPACE 


051574 


RECORDS 


012124 


013737 
012704 


012124 
104406 


010337 


- HARDWARE TESTS 1-8 


000002 
002212 


002172 
054110 


010752 
002212 


011104 


002212 


054266 
177776 


000001 
054242 


MACRO M1113 


054130 


20$: 


14 - JUN - 84 


MOV 
INC 
ERROF 


MOV 
MOV 


14:17 


TSSRC(RS),R1 


FATFLG 


ERRNO, SF IERR , SF IMSG 


UNITN, T2S0SW 
OT2SPACKET ,R4 


SEQ 0191 


J SSAASASASSSAHAEESSSAEKESHSSEEASESEEESEHEEEAESHEEEAHEEKEKREHASEEEHEBEEEE 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


. 
F SSSARSSSSASAKASHEAEESSESEASESHEESHEAESESEHEHESEESEEEESEHESHEEREESHEEEEEESEE 


PC,WRTCHR 


25%: 


CKLOOP 


25% 
FATFLG 


Vv RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG 


;CONTENTS OF TSSR REGISTER 

;BUMP COUNT 

;FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
-WORD 536 
» WORD SFIERR 
-WORD SFIMSG 

;SET UP UNIT NUMBER 

;SUBROUTINE NEEDS PACKET ADORESS 

s ISSUE WRITE CHARACTERISTICS 

;BR, IF COMMAND ISSUED OK 

;BUMP COUNT 

;SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 537 
. WORD WRTMSG 
-WORD SFIMSG 


;LOOP IF SELECTED 
TRAP CsCLP1 


J SSSAKASASASSHESSSSESSSEASSSSSHSESSEESSEHEESHSESSHHEHEEHAKESSEHEEHAEKRESE SEEKERS 


;ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


° 
J FSRSSSSSHASAASESASSSESSESSESSESSSSSESSESEHEHEEAAESHEAEEEESEEEREEREEEEEEE 


PC ,REWIND 
30$ 


30$: 


46%: 
47$: 


RO,R1 
FATFLG 


ERRNO, T2SRWN,PKTSSR 


T25CN2 ,R 


R2,R3 
#1,R3 
R3,T25RB 


1 


;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
;SAVE TSSR 
;BUMP COUNT 
;REWIND NOT ACCEPTED 
TRAP CSERHRD 


-WORD 536 
«WORD T2SRWN 
-WORD PKTSSR 


sLOOP IF SELECTED 
RAP CsCLPt 


T 
sNUMBER OF RECORDS ON TAPE 
;MAX IT CAN SP“CE OVER 
sWHICH VALUE CAN WE USE 
;BR, IF @ WRITTEN > 64K 
;@ WRITTEN CAN BE USED 
sMOVE ON 
;USE MAX NUMBER 
;DON'T GO ALL THE WAY YET 
sNUMBER OF RECORDS TO SPACE OVER 


SSH EAESEESEESEEEEEERESERESEEE EERE ESEHESHEHREHEAESEHRESESEEEEHEEE 


TSV? 


TEST 5: 


47s5¢ 
4751 
47S2 
4753 
4754 
4755 
4756 
4757 
4756 
4759 
4760 
4761 
4762 
4763 
4764 
4765 


SPACE RECORDS 


012737 
012704 


013737 
010465 
004737 
016501 
012702 
020102 
001425 


012727 
000000 
013727 
©00000 


104406 
012703 
013737 


012737 


- HARDWARE TESTS 1-8 


140010 
054240 


000250 
002116 
177772 
177756 
054272 
002212 


010000 
003114 


MACRO M1113 


054240 


054272 


054242 


054240 


14-JUN-84 


14:17 


;SPACE FORWARD,ACK,CVC*1 COMMAND 


SEQ 9192 


3 
J SPSSHAAKSSSSSAASSEEHSEHEHSHEAEESEHEAEEESEASEEEEEEEEESEEEEEEHESHEEEHERE 


65$: 


67$: 


75$: 


CKLOOP 


MOV 
MOV 


#140010, T25PK3 
@T25PK3,R4 


T2S5CN2, T2SO0L ¥ 
R4, TSOBCRS) 
PC ,WAITF 
TSSRCRS),R1 
@SSR ,R2 
R1,R2 

75$ 

250 


FATFLG 


ERRNO, T2SWDE , PKTSSR 


04096. ,R3 
FREE, T25SRB 


sSPACE FORWARD ,ACK,CVC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 


sNUMBER OF RECORDS USED AS DELAY COUNTER 
ISSUE COMMAND 

;WAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

s;ARE THEY EQUAL 


J SSSEESSSESSEASSSESSESESEESEHASSHESEHSAAESESSEAAEAESAAESEEEESEEEEEEEAERED 


; 
sREAD DATA,ACK COMMAND 


‘ 
{ SSSSSSSSHSESSSSSSSEAESESSEHAESEESSESESASEKEASSESSESESHSESSESAREKAEERESEEDEEEE 


165$: 


ERRHRD 


#100001 , T25PK3 
@T25PK3 ,R4 
R3,T25SZ 

R4, TSDBCRS) 

PC ,WAITF 
TSSRC(RS),R1 


LG 
ERRNO, RDERR , PKTSSR 


;BR, IF OK 
sDELAY .25 SECONDS 
MOV 9250 ,(PC)- 
-WORD O 
MOV LSOLY,(PC)- 
-WORD O 
DEC ~APC) 
BNE 
DEC “32cPC) 
BNE .-20 
;BUMP DOWN COUNTER 
;BR, IF 7 AT END OF DELAY 
; BUMP COUN 
STSSR ENCORRECT AFTER — — 
CSERHRD 
TNORD 539 
-WORD T25WDE 
. WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CS$CLP1 
sRECORD SIZE 
;STARTING READ BUFFER ADDRESS 
sREAD DATA,ACK COMMANC 
:SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
; ISSUE COMMAND 
;WAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;BR, IF OK 
;CHECK FOR TAPE STATUS ALERT 
;IF SET ALL IS WELL 
sBUMP CCUNT 
:TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRO 


TSV7 - HARDWARE TESTS 1-8 


TEST ©: SPACE 


4842 052234 
4843 052240 
4844 052242 

052242 


RECOROS 


001034 
005204 
012136 


104406 
017701 
013702 
1€2702 
020102 


013737 


004737 
103427 


012727 


130762 
054266 
000001 


002212 


002212 
017272 


055456 
054270 
055550 
055612 
054270 


016064 


000250 


MACRO M1113 14-JUN-84 14:17 SEQ 0193 
«WORD 540 
-WORD RODERR 
-WORD PKTSSR 
170$: CKLOOP sLOOP IF SELECTED 

TRAP CSCLP1 

MOV OFREE ,R1 sGET FIRST WORD FROM BUFFER 

MOV T2SCN2 ,R2 ;SET UP EXPECTED 

SUB #1,R2 ;SHOULD BE LAST RECORD 

CMP R1,R2 s;WAS RECORD NUMBERED R3 

BEQ 200$ ;BR, IF CORRECT RECORD 

INC FATFLG BUMP COUNT 

ERRHRD ERRNO, T2SWNG,EXPREC ;SHOULD HAVE BEEN RECORD NUMBER 1 
TRAP CSERHRD 
-WORD 541 
«WORD = T2SWNG 
WORD EXFREC 


000017 


054266 


054272 


200%: CKLOOP 


TRAP CSCLP1 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10076: 
TRAP CsESuB 
CMP FATFLG, #15. sIS ERROR COUNT AT 25 
BLO 999$ ;BR, IF LESS THAN 25 
JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
999%: 
3¢ 
;TEST 5, SUBTEST 6 
; 
;VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE A 
sRATIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE 
;MAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE 
;WHICH EVER IS LESS. 
i 
BGNSUB 5>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
75.6: 


TRAP C$6SUB 
JSR PC, T2SREST ;SET COMMAND PACKET 
MOV T2SCNT , T2SCN2 ;SET UP RECORD COUNTER 
JSR PC, T2SRT2]) 3SET UP OTHER COMMAND PACKET 
JSR PC, T2SRTS s;SET UP OTHER COMMAND PACKET 
MOV T2SCNT, T2SOLY ;SET UP REWIND DELAY COUNTER 


{ PORSREASESERESEEESESESREESEEESEESEEEEREEEDEEESEEEDEERORESEEEDEESS 
; 

; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

; 

; POSSE OEAESEERERESEESEESSSEESEEESEEESEEEEEEEERESOREEEREREEESEEEEES 


10%: JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
BCS 20$ ;8R IF INIT WAS OK 
DELAY 250 s;WAIT ABOUT .25 SECONDS 
MOV #250, (PC)+ 


I es 


| 
| 
| 
ee 


TSV7 - HARDWARE TESTS 1-8 
TEST 5S: SPACE RECORDS 


000000 
013727 


000000 
005367 
001375 
005367 
001367 
005337 
001356 


012124 
013737 


012704 


012124 
104406 


002116 
177772 
177756 
054272 


000002 
002212 


002172 
054110 


010752 
002212 


011104 


002212 


MACRO M1113 


054130 


M15 


14-JUN-84 14:17 


DEC T2S0L Y 


10$ 
MOV TSSRC(RS),R1 
INC FATFLG 


ERRDF ERRNO, SFIERR,SFIMSG 
208: MOV UNITN, T250SW 
MOV @T2SPACKET ,R4 


;DEC COUNTER 
;BR, IF MORE LOOPS REQUIRED 


SEQ 0194 


0 
L$OLY,(PC)- 
0 


sCONTENTS OF TSSR REGISTER 


;BUMP COUNT 

sFATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
. WORD 
- WORD 


sSET UP UNIT NUMBER 


; SUBROUTINE NEEDS PACKET ADDRESS 


TTI rir iiiitirttiiiitiiiitititiitiitiiiiiit ity 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


‘ 
{ SSSHSSSSSASSSESSAESSHESSSSHSESEHESESESESEHESESEASESESEKEKESESASESEEESEKEEHEEHEEE OED 


JSR PC ,WRTCHR 
BCS 25% 
INC FATFLG 


MOV RO,R1 
ERRHRD ERRNO, WRTMSG, SF IMSG 


253: CKLOOP 


s ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
;BUMP COUNT 


;SAVE CONTENTS OF TSSR 

;WRITE CHARACTERISTISC FAILED 
TRAP 
. WORD 
. WORD 
. WORD 


TRAP 


;LOOP IF SELECTED 


{FSSSSSHSSEESSSSSSSESHSKSSESESAESSEEESHESESHSEHAEESHEHEEASESHESHEEEKESREEESEEE 


;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


. 
J SSSSSSSHSSESHSESSHSSSEEEHSHESSSESHHEESSSSESHSEEESHSEESEHESESHEEEHSEHEEHEOEOED 


JSR PC ,REWIND 
30$ 
MOV RO,R1 


INC FATFLG 
ERRHRD ERRNO, T2SRWN,PKTSSR 


30%: CKLOOP 


;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 


s;SAVE TSSR 

;BUMP COUNT 

;REWIND NOT ACCEPTED 
TRAP 
. WORD 
. WORD 
. WORD 

;LOOP IF SELECTED 
TRAP 


{FSSA ASEKAASESESSEEAESEAEEEEARESESEESSHAESSEEEEAAERARESEAEREREEEEEERESD 


CsCLP1 


CSERHRD 
544 
T2SRWN 
PKTSSR 


CS$CLP1 


TSV7 - HARDWARE TESTS 1-8 
SPACE RECORDS 


TEST 5: 


052470 
0524 


013701 


000401 
010203 
010337 


012737 


000000 
013727 
000000 


054140 
0000C2 


002212 


054266 
177776 


054242 


140010 
054240 
000000 


000250 
002116 
177772 
177756 
054272 
002212 


MACRO M1113 


054240 


054272 


14-JUN-84 14:17 


Ce 


SEQ 0195 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


: 
FFSSRAAAASARASRERAAEAAESEARAEEAERERAEAESAEREAEAESEREREEETEEREEHREEEEEREREKE 


MOV T25BFR+6,R1 
R1,R2 


MOV . 

BIS oBIT1,R2 

CMP Ri,R2 

BEQ 40$ 

I FATFLG 

ERRHRD ERRNO, T2580T ,EXPREC 


40$: CKLOOP 


MOV T25CN2 ,R1 
MOV a 


B 
46$: MOV R2,R3 
47$: 

MOV R3,T25RB6 


sPICK UP XSTO 

;SET UP EXPECTED 

sSET BOT BIT IN EXPECTED 

s;DOES EXP = REC'D 

;BR, IF EQUAL (OK) 

BUMP COUNT 

;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 545 
-WORD  T2SB0T 
-WORD EXPREC 


sLOOP IF SELECTED 

TRAP CsCLP1 
sNUMBER OF RECORDS ON TAPE 
sMAX IT CA?! SPACE Pee 


;@ WRITTEN CAN BE USED 
sMOVE ON 
;USE MAX NUMBER 


s;NUMBER OF RECORDS TO SPACE OVER 


{ FERSSEAARSESAAASESASESESSSESEAERESEEASEEAESEESEESEEEEASEESEEEAEEREREEEEES 


;SPACE FORWARD, ACK,CVC=1 COMMAND 


‘ 
{ FRSSEKSSARERSSASASESSASSESSEASSSEEASEASESSEASSESEESHERERESERSESEEEREKESERERES 


MOV #140010, a 


MOV » T250LY 
483: JSR PC ,WAITF 

MOV TSSR(RS), R1 

MOV SSR, 

CMP R1,R2 

BEQ SO0$ 

DELAY 250 


DEC T250LY 
BNE 483 

INC FATFLG 

ERRHRD ERRNO, T2SWDE ,EXPREC 


SPACE FORWARD,ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 

s; ISSUE COMMAND 

;SET UP DELAY COUNTER 

s;WAIT FOR SSR TO SET 


IF OK 
;WAIT .25 SECONDS 
MOV #250,(PC)+ 
WOR 


-WORD O 
MOV LSDLY,“PC)+ 


-WORD 0 
DEC “me 


BNE .: 
DEC 22(PC) 
BNE .-20 


;0EC THE DELAY COUNTER 
;BR, IF COUNTER HASN'T EXPIRED 
;BUMP COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRO 


TSV? - HARDWARE TESTS 1-8 
SPACE RECORDS 


TEST 5- 


010337 


012727 
000000 
013727 
000000 


104406 
012703 
013737 


054266 
177776 


000001 
054242 


002116 
177772 
177756 
054272 
002212 


010000 
003114 


b 16, 


MACRO M1113 14 JUN-84 14:17 SEO 51% 
. WORD 544 
. ORD T 25uDE 
.WORD = EXPREC 
50$ CK OOP 
Bap cece 
MOV T25CN2.R1 sNUMBER OF RECORDS ON 1128 
MOV 065534, ,.R2 sMAX IT CAN SPACE OVER 
CMP R2,R1 sWHICH VALUE CAN WE USE 
6GT 55% s6R, IF @ WRITTEN > 64K 
MOV R1,R3 3@ WRITTEN CAN BE USED 
BR 60% sMOVE ON 
553: MOV R2,R3 sUSE MAX NUMBER 
603: Su8 @1,R3 3D0N‘T GO ALL THE WAY YET 
MOV R3,T25RB sNUMBER OF RECORDS TO SPACE OVER 
J SSSSSSSSSSSSSSHSSSSSSSSSSSSHSSHSSHSSSHSSHESSHSSSSOSSESSESSSSSSSSSSSSEEEE 
3 
;SPACE REVERSE ,ACK,CVC=1 COMMAND 
3 
F SSSSHSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSHSSSHSSSSSSSSSSSESSSSESSES 
654240 MOV #140410, T25PKS sSPACE REVERSE .ACK.CVC=1 COMMAND 
MOV @T25PK3 ,R4 :SET UP R4 WITH PACKET ADORESS 
MOV R4, TSDB(RS) s ISSUE COMMAND 
054272 MOV »TeSCLY 3SET UP COUNTER 
708: JSR PC ,WAITF ;WAIT FOR SSR TO SET 
MOV TSSRC(RS),R1 3GET TSSR CONTENTS 
MOV @SSR ,R2 3SET WP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 758 3;8R, IF Ox 
DELAY 250 ;sWAIT ABOUT .25 SECONDS 
MOV 0250 .(PC)- 
.WORDB O 
MOV LSOLY,(PC)- 
.WORD O 
DEC lor ews 
BNE 
DEC “23(0C) 
BNE -20 
DEC T2S5OLY sBUMP COUNTER DOWN 
BNE 70% ;8R, IF COUNTER HASN'T EXPIRED 
INC FATFLG ;BUKP COUNT 
ERRHRD ERRNO, T25WDE ,EXPREC iTSSR INCORRECT AFTER == DATA 
TRAP CSERHRD 
. WORD 547 
. WORD T25WOE 
. WORD EXPREC 
75%: CKLOOP :LOOP IF SELECTED 
TRAP CSCLPl 
MOV 04996. ,R3 sRECORD SIZE 
054242 MOV FREE , T25RB :STARTING READ BUFFEF ADDRESS 


F SSSSSSSHESSSSESSSSSSSHHESSSSESSSHSHSHHESSHSSSHESSSSSHSHESSHSSSHESSHESHESESEEE 


; 
sREAD DATA,ACK COMMAND 


‘ 
{ SSSSSSSSHSSSSSSSSESSSSESSSSESHESSSHESHSSHSSSESHESSSHSSHSSHSESSEHAESHEEOS 


———————EE 


TSV7? - HARDWARE TESTS 1-8 MACRO M1113 14 JUN 94 14:17 SEQ 0197 
TEST 5S: SPACE RECORDS 
4982 
4963 052774 012737 100001 054240 MOV #100001, T25PK3 sREAD DATA,ACK COMMAND 
49864 053002 012704 054240 1658: MOV OT25PK3 ,R4 3SET UP R4 WITH PACKET ADDRESS 
4965 053006 012700 177777 MOV @177777,R0 sSET ALL ONES INTO CORRECT RECISTER 
4986 053012 004737 017512 JSR PC .FILLMEM sFILL MEMORY WITH RECORD SIZE 
4967 053016 010337 MOV »T25S8Z sSET UWP RECORD SIZE IN PACKET 
49868 053022 010465 MOV R4, TSOB(RS) s ISSUE COMMAND 
49869 053026 004737 016540 JSR PC ,WAITF sWAIT FOR SSR TO SET 
4990 053032 016501 000002 MOV TSSRC(RS),R1 sGET TSSR CONTENTS 
4991 053036 012702 000200 MOV SR ,R2 sSET UP EXPECTED 
4992 2 1 CMP R1,R2 sARE THEY E 
4993 053044 001411 BEQ 1708 sBR, IF OK 
4994 053046 032701 000004 BIT *BIT2,R1 sCHECK FOR TAPE STATUS ALERT 
4995 053052 001006 BNE 1708 :8R, IF BIT SET 
4996 005237 002212 INC FATFLG sBUMP COUNT 
5000 053060 ERRHRD ERRNO,RDERR ,EXPREC ;TSSR INCORRECT AFTER READ DATA 
053060 104456 TRAP CSERMRD 
001044 -WORD S48 
053064 -WORD RDERR 
015564 . WORD EXPREC 
5001 053070 1708: CKLOOP ;LOOP IF SELECTED 
053070 CSCLP1 
$002 053072 017701 130016 MOV @REE ,Ri sGET FIRST WORD Fron BUFFER 
5002 053076 012702 000001 MOV #1,R2 ;SET UP EXPECTED 
$004 053102 020102 CMP R1,R2 ;WAS RECORD NUMBERED R3 
5005 053104 001406 BEQ Patra ;B8R, IF CORRECT RECORD 
5006 053106 005237 002212 INC FATFL ;BUMP COUNT 
5010 053112 ERRHRD Ald T25WNH , EXPREC } SHOULD HAVE BEEN RECORO meee 
053112 104456 C sere 
053114 001045 WORD 549 
053116 5020 . WORD T2SWNH 
3 015564 -WORD EXPREC 
5011 053122 2008: CKLOOP 
053122 104406 TRAP CSCLPi 
$012 053124 ENDSUB 5>>>>>>>>>>>> END SUBTEST »>>>>>>>>>>>> 
053124 L10077: 
053124 104403 TRAP CsESUB 
5013 053126 023727 902212 000017 CMP FATFLG,@15. 3IS ERROR COUNT AT 25 
5014 053134 103402 BLO 999% ;8R, If LESS THAN 25 
5015 053136 004737 017272 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
5016 053142 999%: 
5017 
5018 3° 
5019 8 
aa sTEST 5, SUBTEST 7 
; 
5022 ;VERIFIES THAT SPACE RECORDS REVERSE ISSUED WHILE THE 
5023 ;TAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION 
— sWITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET. 
; 
5026 H 
5027 $ 
5028 t- 
5029 053142 BGNSUB 5 >>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
053142 15.7: 
053142 104402 TRAP Cs$B8SU8 
5030 053144 004737 055456 JSR PC, T2SREST 3SET COMMAND PACKET 


TSv? 
TEST 


053150 


32 053154 


- HARDWARE TESTS 1-8 
5: SPACE RECORDS 


004737 
004737 


012124 
013737 


012704 


005054 
012124 
104406 


055245 
017136 


104406 


055550 
055612 


016064 
002212 


002172 054150 


054110 


010752 
002212 


MACRO M1113 


D1é, 
14-JUN-84 14:17 


JSR 
JSR 


PC, T2SRT2 
PC, T25SRTS 


J SPSSSASHSSHSSHHSE HT SSSSHEHSSSHESSSSSSESHESEESSESESESEHEEEEESEELEECEEES 


; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


: 
I SSSSASSHSSSSSSSSSSHSSSSSSEEASSEHSESHASSHEHESHSEESSSSSSSESSESESHEEEHEES 


JSR PC, SOF INIT 

BCS 20% 

INC FATFLG 

MOV RO,R1 

ERRDF ERRNO, SFIERR, SF IMSG 
208: MOV UNITN, T250SW 

MOV @T2SPACKET ,R4 


J SSSSSHSSSSSHESSSSSSSSSSSSESSSHSSSESSHSHSSSSSSHSSOSSSESSESSSSSSSSFSESOSSEESE 


; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


3 
F SSSHSSSHSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSSSNSSSSSSESSESSSSESESES 


JSR PC ,,WRICHR 

BCS $ 

INC FATFLG 

MOV RO,R1 

ERRHRD ERRNO, WRTMSG, SF IMSG 


25%: CKLOOP 


J SSSSHSSSSSSHSSSSSSSSSSSSSSSSSSHSSESSSSESESSSHSSHSSSSSESSSSHESEEESOEEE 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
F SSSSSSSSSHSHSSHESSHSSSSSSSSSSSSHSSHESSOSSSSSSSSHESSSSSSSSHHSSSHSSESEES 


PC ,REWIND 
30% 
RO,R1 


FATFLG 
ERRNO, T2SRWN,PKTSSR 


CKLOOP 


SEG 9198 
sSET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
300 INITIALIZE <? CONTROLLER 
;6R IF INIT WAS OK 
;BUMP COUNT 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDOF 
WORD SSO 
-WORD SFIERR 
-WORD SF IMSG 
;SET WP UNIT NUMBER 
sSUBROUTINE NEEDS PACKET ADORESS 
; ISSUE WRITE CHARACTERISTICS 
38R, IF COMMAND ISSUED OK 
3 COUNT 
sSAVE CONTENTS OF TSSR 
;sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
.WORD 551 
.WORD WRTMSG 
-WORD SFIMSG 
;LOOP IF SELECTED 
TRAP CsCLPl 
;CALL TAPE REWIND COMMAND 
:6R, IF NO PROBLEM 
;SAVE TSSR 
;BUMP COUNT 
S REWIND NOT ACCEPTED 
ap CSERHRD 
.WORD 552 
. WORD T25RWN 
PKTSSR 
;LO0P IF SELECTED 
TRAP CSCLP1 


- HARDWARE TESTS 1-8 


TSVv7 
TEST 5S: SPACE RECORDS 


5083 


5131 053410 
5132 053414 
5133 053416 
5134 053422 
5135 053424 


013701 
010102 
02 


104406 
012737 


013701 
2 


000001 054242 


100410 054240 
054240 


000000 
016340 
000002 
100206 


002212 


054140 
002000 


a) 
e—=s 
> 


MACRO M1113 14-JUN-84 14:17 SEQ 0199 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


‘ 
J SOHSSESAASHSSHEESSSHSSSHSSEESHESSEHESHSSSHESSESSESOESSEHESEHEHESSEEESESEESE 


MOV T25BFR+6,R1 sPICK UP XSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS OBIT1,R2 ISET BOT BIT IN EXPECTED 
CMP R1,R2 ;D0ES EXP = REC'D 
BEQ 40$ ;8R, IF EQUAL (0K) 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T2580T ,EXPREC | TAPE NOT AT BOT AFTER — 
CSERHRD 
TORO 553 
-WORD T2S80T 
-WORD EXPREC 
40$: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
MOV #1, T25RB6 sNUMBER OF RECORDS 0 SPACE OVER 
Pririiiiititiiitittitiiitiiiiitiiiitiiiitiiititiitiiiitiiiitt tii tT 
2 
sSPACE REVERSE .ACK COMMAND 
3 
Trrititiitiiiiiiiiiiiitiiiiiitiiiiiiiiiitiiitiitt titi ttt tt 
MOV #100410, T25PK3 ;SPACE REVERSE ,ACK COMMAND 
. MOV @T25PK3,R4 ;SET UP R4@ WITH PACKET ADDRESS 
65$: 
MOV R4, Mes Spee ; ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRC R5),R ;GET TSSR CONTENTS 
MOV OSSR!SCt@ITLIBIT2. R2 ;SET UP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ i sBR, IF OK 
INC ;BUMP COUNT 
ERRHRD cme. T25WDE ,PKTSSR iTSSR INCORRECT AFTER saa Bn 
CSERHRD 
TNORO 554 
.WORD T25SWOE 
. WORD PKTSSR 
75%: CKLOOP ;LOOP IF SELECTED 


TRAP CsCLPl 
{ POSSSHSSSSSSESEHSESHESSSSSSHSSSESHSSSHESSHSHERSSSHSESSASESEEEEEEESEESESSE 


é 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


; 
F FSSSSSSSSESESESSESSSESHSEESEHSESHESSEHEHHASSAESHAESSHEHSHSEKSESHSHASEEEESEHEDE 


MOV T25BFR+6,R1 sGET XSTO STATUS WORD 
MOV R1,R2 sSET UP EXPECTED 
BIS #B1IT10,R2 sSET THE NEF BIT 
CMP R1,R2 sARE THEY EQUAL 
BEG 170% ;BR, IF EQUAL (GOOD) 


TSv7 
TEST ‘5: 


5136 
5140 


- HARDWARE TESTS 1-8 
SPACE RECORDS 


053426 
053432 


005237 


104456 
001053 
055103 
015564 


104406 
104403 
023727 


103402 
004737 


012124 
013737 


012704 


002212 


MACRO M1113 


002212 000017 


017272 


055456 
055550 
055612 


016064 
002212 


002172 
054110 


054130 


i708: 


999$: 


3° 


F 16, 


14-JUN-84 14:17 


INC FATFLG 
ERRHRD ERRNO, T2SNEF ,EXPREC 


FATFLG,@15. 
999% 
PC ,.CKDROP 


; 

sTEST 5S, SUBTEST 8 
; 

sVERIFIES THAT A SPACE RECORDS REVERSE COMMAND THAT 


sCUASES THE 
sINITIALLY AT BOT) CAUSES A TAPE STATUS 


sBUMP COUNT 

sNEF SHOULD BE St! 
TRAP 
. WORD 
. WORD 
. WORD 
TRAP 

L10100: 

TRAP 


sIS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 


TAPE TO RUN INTO BOT (WITH THE TAPE NOT 
ALERT 


; TERMINATION AND SETS THE REVERSE INTO BOT (RIB) 


;STATUS BIT 

; 

’ BGNSUB 
JSR PC, T2SREST 
JSR PC, T2SRT2 
JSR PC. T25RT3 


SEQ 9290 


CSCL Pi 


CsESUB 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
TS.8: 


TRAP 
sSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 


J SSSSSSSSSSSSSSHESSESESSHSSSSHSSSKSESHSESESSHSSSSSSHESSSHSHESSSHSESAEES 


a 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


G 
{ SSSSSOSASSSSSSSSSSSHSSSSSESHSSSESHSSHSSESSSSHSHASSESSSSHSSEKRSESSSESTESEEE 


20%: 


JSR PC, SOF INIT 

BCS 20% 

INC FATFLG 

MOV RO,R1 

ERROF ERRNO, SFIERR,SFIMSG 
MOV UNITN, T250SW 

MOV @T2SPACKET ,R4 


3:00 INITIALIZE ON CONTROLLER 
s8R IF INIT WAS OK 

sBUMP COUNT 

sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS = 


. WORD 
. WORD 
WORD 


;SET UP UNIT NUMBER 


CsBSuUB 


CsEROF 
56 


S 
SFIERR 
SF IMSG 


;SUBROUTINE NEEDS PACKET ADDRESS 


J SSSSSEESEHSEHSESEEEASEAESEEHEESESHESEHESSEEHESSEESEHHEESSESHESEHEEASEHEEOEES 


TSV? - 


VEST Ss 


5233 


5236 


HARDWARE TESTS 1-8 


SPACE RECORDS 


053536 004737 
053542 103407 
053544 005237 
053550 010001 


053552 104456 
053554 001055 
005054 


053560 012124 
053562 104406 


053564 004737 
053570 103407 

053572 010001 
053574 005237 


053600 104456 
053602 001056 
053604 055245 
053606 012136 


053610 104406 


053612 013701 


104406 
053646 012737 


010752 
002212 


011104 


002212 


054140 
000002 


002212 


000001 


(5] t) 
MACRO M1113 14-JUN-84 14:17 SEQ 9201 


sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


: 
FESSSSSSHASHSSSHASSHSHESSSESSSHHSSHESHSHSEHSHSHSESSSHHEHHEHHESESEESESESHEEOS 


JSR PC ,WRTCHR s ISSUE WRITE CHARACTERISTICS 
BCS 253% :8R, IF COMMAND ISSUED OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG , SF IMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 557 
.WORD WRTMSG 
.WORD SF IMSG 
253: CKLOOP ;LOOP IF SELECTED 
TRAP CS8CLPl 
Wiriiitiitittiitiiiiiiitiitititiiiiititiitiiititiliiiliitittiiltititt 
; ISSUE REWIND COMMAND YO SELECIED TAPE ORIVE 
Hy 
Wirrtiiiiiitiiiiititiiiiitiiiiiiiitiititiiiittitititiitt tii ttt ttt 
JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
BCS 30$ ;BR, IF NO PROBLEM 
MOV RO,R1 ;SAVE TSSR 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T25RWN,PKTSSR sREWIND NOT ACCEPTED 
TRAP CSERHRO 
-WORD 558 
.WORD T2SRWN 
.WORD PKTSSR 
30$: CKLOOP ;LOOP IF SELECTED 
TRAP CS$CLP1 
Pritiiiiititii tiitititiiiitiitiiiiiiiiittt ttt iiititiiiiiitittt tity) 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
H 
Trititiiiiiiiiii tt iiiitiiitititiititifitii i i itti ttiitiittiitt titi tt 
MOV T25BFR+6,R1 sPICK UP XxSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS BIT1,R2 sSET BOT BIT IN EXPECTED 
CMP R1,R2 ;D0ES EXP = REC'D 
BEQ 40% ;BR, IF EQUAL (OK) 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T25B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHROD 
.woRt 559 
.WORD T2SB0T 
.WORD EXPREC 
40%: CKLOOP 
TRAP CSCLP1 
054242 MOV #1, T25RB s;NUMBER OF RECORDS TO SPACE OVER 


{ FSSSSSSSEHESSSSSECESAESEEASESHSESSESHESEHEEEEHSESESEHEEAESSEHESHSEEASEESEEEEESD 


[a 


TSV? 


TEST 5S: SPACE RECORDS 


5287 


053654 012737 


053726 104406 
053730 012737 


053736 012737 


- HARDWARE TESTS 1-8 


140210 
054240 
000000 


900020 


002212 


MACRO M1113 


054240 


054242 


054240 


14-JUN-84 


Hie 
14:17 


;SPACE FORWARD, IE,ACK,CVC=1 COMMAND 


SEQ 9202 


: 
J SSSHSHASASSEHSHESAERASAHASSESESHHEEEEHESSEEHHESEEEHEEEHESEHSHESEEEEEESS 


758: 


I 
ERRHRD 


CKLOOP 
MOV 


#140210, T2SPK3 
@T25PK3 RO 


TSSACRS),R1 
@SSR ,R2 
R1,R2 


FLG 
ERRNO, TOSWOE , EXPREC 


#20, T25RB 


FSSSSSSSSESSSSSSSSSHASSSSSSESSSSSEESSSESHESSEESSSSSSHSHESESHESHSESESHRASSHL SES 


; 
sSPACE REVERSE, IE,ACK COMMAND 


3 
J SSCSHSSSHSASSSEASSAASSSASSSSSSSESSEESEESSHSESEHSSSSSESAESEHSSESSESESKEEHESAEEE 


1758: 


180$: 


CKLCOP 


#100610, T2SPK3 


TSSRCRS),R1 
a 


G 
ERRNO, T2SWOE , EXPREC 


T25BFR+14,R1 


FATFLG 
ERRNO, T2SNEF ,EXPREC 


sSPACE FORWARD, IE,ACK,CvC-1 tense 
sSET UP R4 WITH PACKET ADDRESS 
sISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
3SET UP EXPECTED 
;ARE THEY EQUAL 
sBR, IF OK 
3BUMP COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 560 
-WORD T2SWDE 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 
sNUMBER OF RECORDS TO SPACE OVER 
;SPACE REVERSE ,IE,ACK COMMAND 
3;SET UP R4 WITH PACKET ADDRESS 
; ISSUE COMMAND 
sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY E€ 
;BR, IF OK 
;BUMP COUNT 
;TSSR INCORRECT AFTER == A ve 
CSERHROD 
TWORO 561 
“WORD T2SWOE 
WORD EXPREC 


;LOOP IF SELECTED 


;GET XST3 STATUS WORD 
;SET UP EXPECTED 

;SET THE RIB BIT 

;ARE THEY EQUAL 

:BR, IF EQUAL (GOOD) 
;BUMP COUNT 

:NEF SHOULD BE SET 


TRAP CsCLP1 


TRAP CSERHRD 


-WORD 562 
-WORD  T2SNEF 
-WORD EXPREC 


TRAP CsCLPl 


TSV7 - HARDWARE TESTS 1-8 


TEST 5: SPACE 
5288 054046 


RECORDS 


104403 
023727 
103402 
004737 


004737 
103002 
000137 


104432 
001542 


010 


002212 00001" 
017272 


016546 
046746 


MACRO M1113 


ENDSUB 


CMP 

BLO 

JSR 
999%: 


193%: 


ay 
eo 
ad 


14-JUN-84 14:17 


FATFLG,@15. 
999% 
PC ,CKDROP 


PC, TSTLOOP 
193% 
T2SL00P 


TsT 


3° 
;LOCAL STORAGE FOR THIS TEST 


10-<.-TSV2E7> 


;WRITE SUBSYSTEM MEMORY COMMAND PACKET 


.BLKB 
T2SPACKET: 
. WORD 
. WORD 
. WORD 
. WORD 
T2SDATA: 
. WORD 
. WORD 
. WORD 
. WORD 
T250SW: .WORD 
T258FR: .BLKW 
.BLKB 
T25PKe: 
. WORD 
. WORD 
. WORD 
WORD 
.BLKB 
T25PK3: 
. WORD 
T25RB: 
T25WB: .WORD 
. WORD 
T2552 . WORD 
.EVEN 
; 
; 
T258F 2: 
T258S0: .BYTE 


10-<, -TSV2E7> 


100006 
T258F 2 
0 


6. 

10-<, -TSV2E7> 
100005 

FREE 


ie) 
0 


10 


SEG 9203 


p> >>>>>2>>%>e> END SUBTEST ->> >>> rors, 
(10101; 
TRAP CSESUB 
31S ERROR COUNT AT 25 
sBR, IF LESS THAN 25 
TRY TO DROP THE UNIT 


300 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 


s;ALL DONE THIS TEST 
TRAP 
. WORD 


CSsExIT 
L10071-. 


s;COMMAND PACKET FOR TEST 

sWRITE CHARACTERISTICS COMMAND, WITH ACK 
sADORESS OF CHARACTERISTICS BLOCK 
s;STARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 

s;ADORESS OF MESSAGE BUFFER 

s;LENGTH OF MESSAGE BUFFER 


sSELECT DRIVE ZERO 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, AND ACK 


sADDRESS OF SELECT BLOCK DATA 
sSIZE OF DATA PACKET 


sREAD COMMAND, AND ACK 


sADORESS OF WRITE BUFFER 
;SIZE OF BUFFER CEXTENT) 


;BSELO AREA 


TSV7 - HARDWARE TESTS 1-8 


TEST 5: SPACE 


5347 054251 
5348 054252 


RECORDS 
200 


000000 
000000 


177777 
000000 


000000 
000000 


012701 
012721 


012762 


14:17 


200 
0 
Q 


.EVEN 
;TAPE MOTION PACKET COMMAND VALUES 


100005 
100405 
102005 
177777 


0 
0 
0 


;LOCAL TEXT MESSAGES FOR TEST 


;BSEL1 AREA 
;SEL 2 AREA 
sDATA AREA 


sREAD DATA (NEXT) 
sREAD DATA RETRY 
sWRITE CONTINOUS 
sEND OF DATA 


sCOUNTER FOR RECORDS 
s;COUNTER FOR RECORDS 
sCOUNTER FOR RECORDS 


‘WRITE SUBSYSTEM Miscellaneous Read Status Failed’ 
‘TSSR Not Correct After POSITTON (SPACE) Command’ 
‘Tape Not At BOT After REWIND Command’ 


‘TSSR Not Correct After POSITION (Spece Command) Re ject’ 
Status Alert, But No EOT Sensed’ 


‘Write Tape, 


‘Space Forward Failed To Position On Correct Record’ 


Spece Forward, From BOT, Feiled To Clear BOT Indication’ 


‘Space Reverse failed To Position On Correct Record’ 
‘ Space Reverse, At BOT, Failed To Set NEF (XSTO)’' 
‘Space Reverse, Into BOT, Failed To Set RIB (XST3)' 


‘Rewind (POSITION) Command Not Accep 


ted’ 


‘Drive 7 Select Failed To Set “OFL" In TSSR’ 
‘TSSR Not Correct After READ DATA Command’ 


-ASCIZ 


‘Space Records’ 


sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
;WRITE SUBSYSTEM MEMORY COMMAND 


MACRO M1113 14-JUN-94 
T258S1: .BYTE 
T25S2: .WORD 
T2553: .WORD 
T25RN: .WORD 
T2SWOR: WORD 
T25CON: .WORD 
. WORD 
T25CN2: .WORD 
T25CNT: .WORD 
T25D0LY: .WORD 
122 111 T2S5SSR: .ASCIZ 
123 123 T2SWOE: .ASCIZ 
141 160 T2SB0T: .ASCIZ 
123 123 T2STM: ASCIZ 
162 151 T2SNET: .ASCIZ 
160 141 T2SWNG: .ASCIZ 
160 141 T2SBNC: .ASCIZ 
160 141 T2SWNH: .ASCIZ 
160 141 T2SNEF: .ASCIZ 
160 141 T2SRIB: .ASCIZ 
145 167 T2SRWN: .ASCIZ 
162 151 T2SOFL: .ASCIZ 
123 123 T2SwOC: .ASCIZ 
160 141 TST25I0 
EVEN 
$ 
T25REST: 
SAVREG 
054110 MOV 
100004 MOV 
054120 MOV 
CLR 
000012 MOV 
654132 MOV 
CLR 
000024 MOV 
CLR 
000000 MOV 
000030 MOV 
177777 054132 64$: MOV 


OT2SPACKET ,R1 
#100004 ,(R1)+ 
@T25DATA,(R1)+ 
(R1)+ 

#10. ,(R1)+ 
@T2SBFR,CR1)+ 
(R1)+ 
fanaa 


»R2 
0177777, T25BFR(R2) 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 
sWRITE SUBSYSTEM MEM. WITH ACK 


SS OF CHARAISTICS DATA BLOCK 


s ADDRE 

;EXTENDED ADORESS 

;SIZE OF DATA BLOCK IN BYTES 
s;ADDRESS OF MESSAGE BUFFER 
s;LENGTH OF MESSAGE BUFFER 


sSELECT DRIVE ZERO 


s;NUMBER OF LOCATIONS TO BE CLEARED 


;ALL ONES TO MESSAGE BUFFER 


SEQ 0204 


SV7 - HARDWARE 


te ST 5: SPACE 


TESTS 1-8 


RECOROS 


005742 
022702 
001371 
000207 


012701 


012701 
012721 
012721 
005021 
012721 
000207 


104401 


012737 
004737 


072276 


MACRO M1113 


002206 


T25RT2: 


T25SRT3: 


vi 


. SBTTL 


14-JUN-84 14;17 


eT25PK2 ,R1 
#100006 ,(R1)+ 
@T25BF2,(R1)+ 


TEST 


6: REREADS 


;MEAi LOCATION 


ra” R2 AT ZERO YET 
“-EP GOING UNTIL DONE 


;RE TURN 


s;SAVE THE REGISTERS 
s;START OF THE PACKET 


sWRITE SUBSYSTEM MEM. WITH ACK, 


sADORESS OF DATA BLOCK 
ADORE SS 


;EXTENDED 


;SIZE OF DATA BLOCK IN BYTES 
s;POINT TO DATA SEL AREA 


sRETURN 


s;SAVE THE REGISTERS 
sSTART OF THE PACKET 


sWRITE SUBSYSTEM MEM. WITH ACK, 


sADORESS OF DATA BLOCK 


sEXTENDED 


L10071: 
TRAP 


; THIS a ae THAT THE REREAD PREVIOUS AND REREAD NEXT 


; COMMAND E PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN 
SDATA BUFFER BOUNDRIES. RECORD SIZES (UP TO 64K BYTES IF MEMORY 


SPACE IS AVAILIABLE), AND B\TE-SWAP (SWP) AND OPPOSITE (OPP) 
ARE USED. ALSO TESTED ARE PROPER TERMINATIONS ON 


3; CONRTOL 


sEXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG, RECORD 
LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA BUFFER ADDRESSES, 


sAND DATA BUFFERS IN NONEXISTENT MEMORY. 


;THE TEST CONSISTS OF THE FOLLOWING 15 SUBTESTS 


SEPRT2, EPRTSW 
PC ,KTOFF 
#TST26ID,RO 
PC, TSTSETUP 
#5, LOOPCNT 

PC ,MEMCK 
NXMFLG 

T26CNT 


T6:: 
;SECONDARY ERROR MESSAGE 
3D0N'T NEED KT11 
sASCII MESSAGE TO IDENTIFY TEST 
300 INITIAL TEST SETUP 


sPERFORM S ITERATIONS 
sCHECK FOR MEMORY 


;SET FLAG 


;CLEAR TAPE RECORD COUNTER 


ADDRESS 
;SIZE OF DATA BLOCK IN BYTES 
TURN 


CSsETST 


SEQ 9205 
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TEST 6: REREADS 


012737 


004737 
103426 


012727 
000000 
013727 
000000 


012124 
013737 


075040 
075132 
075174 
176750 072304 


016064 


000250 
002116 
177772 
177756 
072304 
002212 


002172 072140 


L 1 F 


MACRO M1113 14 JUN-84 14:17 SEQ 0206 


3° 


;TEST 6, SUBTEST 1 


; 

;VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0 
AND SWB=0 OPERATES PROPERLY. THE TAPE IS FIRST 
sREWOUND AND THEN WRITTEN WITH A SERIES OF TEST 
;RECORDS VARYING IN ee AND DATA CONTENT. THE TAPE 
;IS THEN REWOUND AGAIN. FOR EACH TEST RECORD, THE 
;TAPE IS SPACED FORWARD ONE RECORD AND A REREAD 


;PREVIOUS COMMAND IS THE LENGTH OF THE EXPECTED 
;RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 


T26L00P 
BGNSUS 3>>>>>>>>>>%> BEGIN SUBTEST >>>>>>>>>>>> 
76.1: 
TRAP CsBSUB 
JSR PC, T26REST sSET COMMAND PACKET 
JSR PC, T26RT2]) ;SET UP OTHER COMMAND PACKET 
JSR PC, T26RTS ;SET UP OTHER COMMAND PACKET 
MOV #65000. , T260L ;SET UP DELAY COUNTER 


{PORARAEEEEESOEESRESESEDEEREEESEREEEHEESESERERESSOEEEOEEERESEESESS 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

; 

{ PORAREAEREREEEEESSEEEEEEERESESSEEESSESESESEDEEES ESHER ES ORESEEEEES 


10%: JSR PC, SOF INIT s00 INITIALIZE ON CONTROLLER 


BCS 20% ;8R IF INIT WAS OK 

DELAY 250 s;DELAY FOR A REWIND TO FINISH 
MOV #250, (PC)+ 
. WORD 
MOV LS$OLY,(PC)-> 
-WORD 0 
DEC -6(PC) 
BNE 74 
DEC -22(PC) 
BNE .720 

DEC T260LY s;DEC COUNTER 

BNE 10$ ;BR, IF DELAY NOT READY 

INC FATFLG sBUMP COUNT 

MOV RO,R1 s;CONTENTS OF TSSR REGISTER 

ERRDF ERRNO, SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP CsEROF 
-WORD 601 
-WORD SFIERR 
WORD SFIMSG 

MOV UNITN, T260SW ;SET UP UNIT NUMBER 


—— | 
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REREADS 


TEST 6: 


5508 
5509 
$510 
$511 
5512 


056024 012704 


056030 004737 
056034 103407 


056052 012124 
056054 104406 


056056 004737 
056062 103413 
056064 016501 
056070 012702 
056074 010004 
056076 005237 


056102 104456 
056104 001133 
056106 073604 
056110 012136 


056112 104406 


056114 013701 
056120 010102 
056122 052702 
056126 020102 
056130 001406 
056132 005237 


056136 104456 
056140 001134 
056142 073315 
056144 015564 


072120 


010752 
002212 


011104 


000002 
000200 


002212 


M16. 


MACRO M1113 14-JUN-84 14:17 


MOV @OT26PACKET ,R4 


; SUBROUTINE NEEDS PACKET ADDRESS 


J RSASASSSSHAASSSSHSSEESSSEHEAEAESEHEEHEASESEESESES HEHEHE ESEKESEEEEEEE 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


{RSH SHSS BHESSHESKSHSHAOAEHHSEHSSSESEAHESSHSSSHSSESESESHSSESEEEHESSESESEEEEEEES 


JSR PC ,WRTCHR 


BCS 263 
INC ay “’ 
MOV RO,R 


ERRHRD ERRNO, WRTMSG , SF IMSG 


26%: CKLOOP 


; ISSUE WRITE CHARACTERISTICS 
:BR, IF —— ISSUED OK 


;SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC ae 


;LOOP IF SELECTED 
TRAP 


FSSSASSSHSSSSASSSESESSSSSSSASHHHSESESESESEESASESEHESESSEHKEHSSESSESEEESESEEEEE 


; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
{ SSSSESESSHASASESHSSHSSSSESSSHASSEASHHESESESHASSHEHSESESSEOHSHSEHESSESEEESEEEEE 


JSR PC ,REWIND 
30 


BCS 4 
MOV TSSRCRS),R1 
MOV @SSR ,R2 


MOV RO,R4 
INC FATFLG 
ERRHRD ERRNO, T26RWN,PKTSSR 


30%: CKLOOP 


;CALL TAPE REWIND COMMAND 
;3R, IF NO PROBLEM 

;GET TSSR 

;SET UP EXPECTED 7SSR 
;PACKET ADDRESS SET UP 
;BUMP COUNT 

sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 
TRAP 


FSSSSESASSAAESESEHAEESS EHESHASEHEESEHESHEEAESSEKESSEESESEAESSEEEREESEEEES 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


; 
F FSSSESAESEHEESSEEHSSEASSESESEAEEEHSSESSSAESEHESKEHASESESEHSHEEEEEESEEE SEES 


MOV — 


I LG 
ERRHRD ERRNO, T26B07 ,EXPREC 


sPICK UP XSTO 

;SET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
;DOES EXP = REC'D 

;BR, IF EQUAL (OK) 


;BUMP COUNT 

; TAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
. WORD 
. WORD 


SE@ 9207 


CSCLPi 


CSERHRD 
603 
T26RWN 
PKTSSR 


Cs$CLP1 


CSERHRD 


604 
T26B0T 
EXPREC 


= 


- HARDWARE TESTS 1-6 
ADS 


Sv? 
CST 6: RERE 


104406 
012703 
013737 


012737 
012704 


000400 
003114 


000414 


Bl 
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072252 


403: CKLOOP 


MOV 256. RS 
MOV FREE , T26RB 


;WRITE DATA,ACK,CVC#1 COMMAND 


MOV #140005 , T26PK3 

MOV OT26PK3 ,R4 
655: 

MOV R3,RO 

JSR PC .FILLMEM 

MOV R3,T26SZ 

MOV R4, TSOBCRS) 

JSR PC ,WAITF 

MOV TSSRCRS),R1 

MOV @SSR ,R2 

CMP R1,R2 

BEQ 75% 

NC FATFLG 


7S$: CKLOOP 
TST (R3)- 


cep 0268. ,R3 
65% 


1208: 


I 
ERRHRD ERRNO. WRTERR , EXPREC 


‘ 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


é 
F SSHSSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSHSHSSSSSSSSSSSSSSSSSSESSESESESOESE 


JSR PC ,REWIND 
30 


BCS 130% 

MOV TSSRCRS),R1 
MOV @SSR ,R2 

MOV RO,R4 


INC FATFLG 


ERRHRD ERRNO, T26RWN,PKTSSR 


130%: CKLOOP 


a ee ae eee eee - 2+ oe ee ee 


SEQ 0208 
;L00P IF SELECTED 
TRAP CSCLPi 
sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 
sWRITE DATA,ACK,CVC*1 COMMAND 
sSET UP R4 WITH PACKET ADORESS 
sSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 
sISSUE COMMAND 
SWAT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
s6R, IF OK 
sBUPP COUNT 
:TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 605 
.WORD WRTERR 
-WORD EXPREC 
3;LOOP IF SELECTED 
TRAP CSCLP1 
sBUPP RECORD SIZE 
sEND OF RECORD YET 
38R, IF MORE RECORDS TO WRITE 
;LO0P IF SELECTED 
TRAP CSCLP1 
sCALL TAPE Hay B COMMAND 
3BR, NO PROBLEM 
:GET TSSR 
sSET UP EXPECTED TSSR 
sPACKET ADDRESS SET UP 
sBUMP COUNT 
;REWIND NOT ACCEPTED 
TRAP CSERHROD 
-WORD 606 
.WORD T26RWN 
.WORD PKTSSR 
;LOO0P IF SELECTED 
TRAP CSCLPl 





og TESTS 1-8 


TSv? 
TEST 6: RERE 


013701 
010102 


104406 
012737 


104406 
013703 
013737 


000400 072302 


072302 
003114 072252 


141001 072250 
072250 
072256 
000000 


016340 
000002 


MACRO M1113 14-JUN-84 14:17 


SEQ 0209 


§ PSSSASSSSSSSSSSSSSSSSASSSSSSSSSHESSHSSSSSSSSESSHSEHSEEEHSESEESEESEEEEESE 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


; 
J SSHHSSSSSSSSSSSSSSSSESSHSSSSSEHSSSSHOSHSSSHSSSSHSHSSSSSHESHEHSHEEEEOCES 


MOV T26BFR+6,R1 


MOV R1,R2 
BIS @81T1.R2 
CMP R1,R2 
BEQ 140% 


INC G 
ERRHRD ERRNO, T2680T ,PKTSSR 


140%: CKLOOP 
MOV 256. , T26RSZ 


sPICK UP xXSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 

;D0ES EXP = REC'D 

BR, IF EQUAL (OK) 

sBUMP COUNT 

TAPE NOT AT BOT AFTER ey 

CSERHMRD 

Mono 607 
. WORD T2680T 
WORD PKTSSR 


sLOOP IF SELECTED 
sSET RECORD SIZE 


;ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
1 “REVERSE 


sBIT 15 SETS DIRECTION - O-FORWARD 


145%: MOV #1,R3 

JSR ° 

6CcS 150% 

MOV TSSRCRS),R1 

MOV @SSR ,R2 

INC FATFLG 

ERRHRD ERRNO, T26SC .EXPREC 
150%: CKLOOP 

MOV T26RSZ RS 

MOV FREE , T26R8 


sSPACE ONE RECORD PARAMETER 

sCALL SPACE ROUTINE 

36R, IF NO PROBLEM WITH SPACE COMMAND 
3sGET TSSR 

;SET UP a TSSR 


sBueP C 
:POSITION (SPACE eects > A es 


CSERHRO 
TUORO 608 
-WORD T26SC 
-WORD EXPREC 


TRAP CsCLPl 
sRECORO SIZE 
sSTARTING READ BUFFER ADDRESS 


§ SSOSSSSSSSSSHSSSSSSSSSSSSSSSHSSSSSSSSSSSHESSSSSOSSSSSSSHSSSSESSSEEEE 


}REREREAD DATA,CvC=1,ACK COMMAND 


6 
§ SSSSSSSSSSSOSSSSSSHSSSSSHSSSOSSSSESSESSHSSSSSSSSSSSSSESSSSSSSSSSSESS 


MOV #141001 , T26PK3 
165%: MOV @T26PKS ,R4 
MOV R3, T26SZ 
MOV R4, M2 +! RS) 
JSR PC ,WAITF 
MOV 


TSSACRS),R1 


sREREREAD DATA,CVC=1,.ACK COMMAND 
sSET UP R4 WITH PACKET ADORESS 
sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 
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TEST 6: REREADS 

056466 012702 000200 MOV @SSR RO sSET UP EXPECTED 

5665 056472 020102 CMP R1,R2 sARE THEY EQUAL 

5666 056474 001406 BEQ 1708 ;68R, IF OK 

5667 056476 005237 002212 INC FATFLG ;BUMP COUNT 

567; 056502 ERRHRD ERRNO, T26WDC .PKTSSR sTSSR INCORRECT AFTER ~~ DATA 
056502 104456 CSERHRD 
056504 001141 MORO 609 
055506 074140 . WORD T26WOC 
056510 012136 .WORD PKTSSR 

5672 056512 170$: CKLOOF ;LOOP IF SELECTED 
0565 104406 TRAP CSCLPi 

5673 056514 013702 003114 MOV FREE ,R2 sCURRENT BUFFER ADDRESS TO R2 

5674 056520 010304 MOV R3,R4 sCURRENT RECORD SIZE 

5675 056522 162704 000400 SUB @256. ,.R4 F IRST LOCATION IN BUFFER 

5676 056526 060204 1738: ADO R2,R4 sSET UP POINTER 

5677 056530 021403 CMP CR4),R3 sCHECK DATA a Sia ALSO) 

5678 056532 001410 BEQ 180$% 36R, IF AL IS 

5679 056534 011401 MOV (R4),R1 sRECD DATA 

5680 056536 010302 MOV R3, sEXPECTED DATA 

5681 056540 005237 002212 INC FATFLG ;6UNP COUNT 
056 ERRHRD ERRNO, T260TA,EXPREC sDATA READ NOT = WRITTEN 
056544 104456 TRAP CSERHRD 
056546 001142 -WORD 610 
056550 073362 -WORD T26DTA 
056552 015564 -WORD EXPREC 

5686 056554 1803: CKLOOP 3;LO0P IF SELECTED 
056 104406 TRAP CSCLP1 

5687 056556 005724 TST CRO )o s6UNP TO NEXT LOCATION 

5688 056560 160204 R2,R4 sCORRECT RECOROS SIZE VALUE 
056 020403 CMP R4,R3 sEND RECORD YET 

5690 056564 001360 173% 36R, IF NOT AT END OF RECORD 

5691 056566 005725 TST (R3)-+ sBUMP RECORD SIZE 

5692 056570 010337 072302 MOV R3, T26RSZ sRESET RECORD SIZE 

5693 056574 022703 000412 CMP RS sEND OF RECORD YET 
056600 001270 BNE 145% 3BR, IF MORE RECORDS TO READ 

5695 056602 190%: CKLOOP ;LOOP IF SELECTED 
056602 104406 TRAP CSsCLPl 

5696 056604 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
056604 L10103: 
056604 104403 TRAP CsESUB 

5697 056606 023727 002212 000017 CMP FATFLG,@15. sI1S ERROR COUNT AT 25 

5696 056614 103402 BLO 999% 3BR, IF LESS THAN 25 

5699 056616 004737 017272 JSR PC ,CKDOROP sTRY TO DROP THE UNIT 

5700 056622 999%: 

5701 

5702 3° 

5703 3 

ake sTEST 6, SUBTEST 2 

H] 

5706 sVERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0 

5707 sAND SWB-1 OPERA Lay PROPERLY. THE TEST ey Is 

5708 sTHE SAME AS THAT USED IN SUBTEST 1, BUT I 

5709 sVERIFIED THAT heen: STORED BY THE COMMAND CONTAINS 

5710 sSWAPPED BYTES 

5711 3 

5712 3 

5713 3 


het ge im Phe it al 


test 6: REREAD 


5764 056742 
5765 056744 


012124 
013737 


012704 


005054 
012124 
104406 


075040 
075132 
075174 


016064 
002212 


002172 
072120 


010752 
002212 


011104 


000002 
000200 


002212 


MACRO M1113 14-JUN-84 14:17 


072140 


JSR PC, T26REST 
JSR PC, T26RT2 
JSR PC, T26RTS 


SEQ 0211 


3>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>> 
16.2: 


TRAP 
sSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 


jOROSAERESRERESRESEEEEEEESEESEEEEEEEERESEEER OOEREESEEEESEEEEEOEEES 
; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


a 
J SSSSSNASSSSAHSSSSSSHKSESSSSSSESHKSSSEASHESSESSHSSSESSSESSEESSEEEEEEEE 


JSR PC, SOF INIT 


Bcs 20% 

INC FATFLG 

MOV RO,R1 

ERRDF ERRNO, SFIERR,SFIMSG 
208: MOV UNITN, T260SW 


MOV @T26PACKET ,R4 


s00 INITIALIZE ON CONTROLLER 
sBR IF INIT WAS OK 


sBUMP COUNT 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS ae & 


. WORD 
“WORD 
;SET UP UNIT NUMBER 


;SUBROUTINE NEEDS PACKET ADORESS 


J SHSSESSSSSSSSSSHSSSSSSHAESSSASSSESESSSSSESSEARESEASSESESSSSESHSSEESESESEEAEE 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


’ 
J SSSSHESSSSSSHSSSESSSSSASSSESSSSHASESSESSESSSSHSESHESSSSSSSESSESSESSEEHREESS 


JSR PC ,WRICHR 
BcsS 26% 
INC FATFLG 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG 


26%: CKLOOP 


s ISSUE WRITE CHARACTERISTICS 
:BR, COMMAND ISSUED OK 


; 
sSAVE CONTENTS OF TSSR 


sWRITE CHARACTERISTISC FAILED 
TRAP 


. WORD 
. WORD 


. WORD 


s;LOOP IF SELECTED 
TRAP 


f SSSSSSSHSEESSSSHSSASESSSSSSSSSSESESEOSSSSSESESSAHSESSESHSHSESHESEEESDS 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


é 
J SSSKEHASSSEHSESESSESSESSHESSESESSSSESEHSESESSESSESESSESSSSESESSSHESSESSEEHES 


JSR PC ,REWIND 


BCS $ 

MOV TSSRCRS),R1 
MOV @SSR ,R2 

MOV RO,R4 


INC FATFLG 


;CALL TAPE REWIND COMMAND 
36R, IF NO PROBLEM 

sGET TSSR 

sSET UP EXPECTED TSSR 
sPACKET ADDRESS SET UP 
sBUMP COUNT 


CSBSUB 


CsCLP1 


Fi 
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TEST 6: REREADS 
5769 056750 ERRHRD ERRNO, TO26RWN,PKTSSR sREWIND NOT ACCEPTED 
56750 104456 TRAP CSERHRD 
056 001145 -WORD 613 
056754 073604 . WORD T26RWN 
056 012136 WORD PKTSSR 
5770 056760 30$: CKLOOP sLOOP IF SELECTED 
0567 104406 TRAP CS$CLP1 
5771 
5772 FSHARESEHAHSAEESESSEEEEESESEESEEEESAEEESESEEEESESESSESESEEEEOEDESEES 
$77: Hy 
S774 sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
$775 : 
5776 { PORSEESSESEAAAASEHESSSESESAEHASSHESSSEEEHSSESESSHASEESESESSEOEESESESE 
$777 
5778 056762 013701 072150 MOV T26BFR+6,R1 sPICK UP XSTO 
5779 056766 010102 MOV R1,R2 3SET UP EXPECTED 
$780 056770 052702 000092 BIS @BIT1,R2 sSET BOT BIT IN EXPECTED 
5781 056774 020102 CMP Rl, s00ES EXP = REC'D 
5782 056776 001406 BEQ 72 :8R, IF EQUAL (OK) 
5783 057000 005237 002212 INC FATFLG sBUMP COUNT 
S787 057004 ERRHRD ERRNO, T26B0T ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
057004 O44 TRAP CSERHRD 
057006 001146 -WORD 614 
057019 073315 -WORD T26B80T 
057012 015564 -WORD EXPREC 
5788 057014 40$: CKLOOP 3LO0P IF SELECTED 
057014 104406 TRAP CSCLP1 
5789 057016 012703 000400 MOV 6256. ,R3 sRECORD SIZE 
coee 057022 013737 003114 072252 MOV FREE , T26RB sSTARTING WRITE BUFFER ADDRESS 
$792 §S SRESEHEASKSSESSSSSSSSSHSESSHSSESSSASESESESESESAHESSAHAESASEOSESESES 
5793 H 
dan sWRITE DATA,ACK,SWB COMMAND 
3 
dae 4 J SOSEHASSSSSSSSESSSSSEESSSHEASEESSEESEAEESEESOSSSSEESEEEEEESEESEEESEESD 
97 
5798 057030 012737 110005 072250 MOV #110005, T26PK3 sWRITE DATA,ACK,SWB COMMAND 
5799 057036 012704 072250 MOV @T26PK3 ,R4 3;SET UP R4 WITH PACKET ADDRESS 
5800 057042 65%: 
58601 057042 010300 MOV RO sSET PATTERN IN CORRECT REGISTER 
5802 057044 004737 017512 JSR PC .FILLMEM sFILL MEMORY WITH RECORD SIZE 
5803 057050 0610327 072256 MOV R3,T26SZ sSET UP RECORD SIZE IN PACKET 
58604 057054 010465 MOV R4, TSDBC(RS) sISSUE COMMAND 
5805 057060 004737 016340 JSR C,WAITF sWAIT FOR SSR TO SET 
5806 057064 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
5807 057070 0612702 000200 MOV SR, 3SET UP EXPECTED 
5808 057074 020102 CMP R1,R2 ;ARE THEY EQUAL 
5809 057076 001406 BEQ 75% s6R, IF OK 
5810 057100 005237 002212 INC FATFLG sBUMP COUNT 
5814 057104 ERRHRD ERRNO, KRTERR,PKTSSR ;TSSR INCORRECT AFTER ae DATA 
057104 104456 CSE 
057106 001147 MORO 615 
057110 005111 . WORD WRTERR 
0571 012136 WORD PKTSSR 
5815 057114 75%: CKLOOP :LOOP IF SELECTED 
057114 104406 TRAP CSCLP1 
5816 057116 005723 TST (R3)>+ ;BUMP RECORD SIZE 


<r 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 6213 
TEST 6: REREADS 
5617 057120 022703 000414 CMP 4268, ,R3 sEND OF RECORD YET 
5818 057124 001346 BNE 65$ ;68R, IF MORE RECORDS TO WRITE 
5819 057126 80$: CKLOOP ;LOO® IF SELECTED 
057126 104406 TRAP CSCLPl 
5820 057130 1208: 
aone FRSSAEARSSESESASAAHSSSESSSHESESHASEAEKAESEEESEHHSEESEESHEEEEEHEOEEESHEEEEEE 
5823 ; 
5824 ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
be) 
are s Senceccnsecscsonnnseseseosessoeooeseoonsessoesensesosoeceeseeeeses 
5827 
58628 057130 004737 011104 JSR PC ,REWINOD sCALL TAPE REWIND COMMAND 
$829 057134 103413 Bcs 130$ ;6R, IF NO PROBLEM 
5830 057136 016501 000002 MOV —— 3;GET TSSR 
5831 057142 012702 900200 MOV @SSR ,R 3SET UP EXPECTED TSSR 
32 057146 010004 MOV RO, Se sPACKET ADDRESS SET UP 
5833 057150 005237 002212 INC FATF LG sBUMP COUNT 
S637 057154 ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
057154 104456 TRAP CSERHRD 
057156 001150 -WORD 616 
057160 073604 -WORD T26RWUN 
057162 012136 .WORD PKTSSR 
5838 057164 130$: CKLOOP sLOOP IF SELECTED 
— 057164 104406 TRAP CSCLP1 
5840 { POREESESESESESESESSSSSESEESESESEEEESSESEESEEESEEEEERESEESESEESEESS 
5841 H 
os | sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
4 s ebeeonnnnssecosossoososennsenseseoescesononcessncesesesnosseesoees 
5 
5846 057166 013701 072150 MOV T26BFR+6,Ri sPICK . be 
7 057172 010102 MOV R1,R2 ;SET UP EXPECTED 
5848 057174 052702 000002 BIS @BIT1,R2 3SET BOT arr IN EXPECTED 
5849 057200 020102 R1,R2 sD0ES EXP = REC'D 
5850 057202 001406 BEQ 140% 3;8R, IF EQUAL (OK) 
5851 057204 005237 002212 INC FATFLG sBUMP COUNT 
5855 057210 ERRHRD ERRNO, T26B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
057210 104456 TRAP CSERHRD 
057212 001151 .WORD 617 
057214 073315 . WORD T2680T 
057216 015564 .WORD EXPREC 
5856 057220 1408: CKLOOP ;LOOP IF SELECTED 
057 104406 TRAP C$CLP1 
oe 057222 012737 000400 072302 MOV 0256. , T26RSZ 3SET UP RECORD SIZE 
5859 {PACERS EEEEEESEESSSSSESRESEEESESESEESEESESSESERESEREDESESESEEEEEEES 
5860 3 
5861 s ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
ay | ;BIT 15 SETS DIRECTION - O=FORWARD 1*REVERSE 
oe  ehaseeesssoneeonnsonnseesensseenenenenoneneenenenneesnasonseneeene 
5 
057230 012703 000001 145%: MOV #1,R3 sSFACE ONE RECORD PARAMETER 
5867 057234 004737 010556 JSR PC, SPACE sCALL SPACE ROUTINE 
5868 057240 103412 Bcs 150$ ;8R, IF NO PROBLEM WITH SPACE COMMAND 


7 eee 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 0214 
TEST 6: REREADS 

5869 057242 016501 000002 MOV TSSRCRS),R1 sGET TSSR 

5870 057246 012702 000200 MOV na sSET UP a TSSR 

5871 057252 005237 002212 INC FLG 38 

5875 057256 ERRHRD Alley T26SC ,EXPREC ;POSITION ( SPACE RECORDS : FAILED 
057256 104456 TRAP CSERHRD 
057260 001152 -WORD 618 
057 072717 -WORD T26SC 
057 015564 -WORD EXPREC 

5876 057266 1508: CKLOOP 
057266 104406 TRAP CSCLP1 

$877 057270 013703 072302 MOV T26RSZ,R3 sRECORD SIZE 

5876 057274 013737 003114 072252 MOV FREE , 726RB6 sSTARTING READ BUFFER ADDRESS 

5879 

5880 { SSHRSSASSSSASSSSAASASSASSSSSSSESSSSSHESESEASESESESESESSESESESESESEEEE 

5881 3 

pees sREREAD DATA,CVC=1,ACK,SWB COMMAND 

; 

5884 j PORSSESEEESEEESESEEESESEEEESSEEERECEEEEEEEEEEESEESESEOREDESEAEEEES 

5685 
057302 012737 151001 072250 MOV #151001 , T26PK3 sREREAD DATA,CVC=1.ACK,SWB COMMAND 

5887 057310 012704 072250 165$: MOV @T26PK3 ,R4 sSET UP R4 WITH PACKET ADDRESS 

5888 057314 010337 072256 MOV RS. 7262 sSET UP RECORD SIZE IN PACKET 
os 010465 MOV R4, = : ISSUE COMMAND 
057 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 

5891 057330 016501 000002 MOV TSSR(RS), R1 sGET TSSR CONTENTS 

5892 057334 012702 00020C MOV @SSR ,R2 :SET UP EXPECTED 

5893 057340 020102 CMP R1,R2 sARE THEY EQUAL 

5894 057342 001406 BEQ 170% sBR, IF OK 

5895 057344 005237 002212 INC FATFLG sBUMP COUNT 

5899 057350 ERRHRD ERRNO, T26WOC ,PKTSSR ;TSSR INCORRECT AFTER REREAD DATA 
057350 104456 TRAP CSERHRD 
057352 001153 -WORD 619 
057354 074140 -WORD T26WDC 
057356 012136 .WORD PKTSSR 

5900 057360 170$: CKLOOP 3;LOOP IF SELECTED 
05 TRAP CS$CLP1 

5901 057362 013702 003114 MOV FREE ,R2 eet BUFFER ADDRESS TO Re 

5902 057366 010304 MOV R3,R4 T RECORD SIZE 

5903 057370 162704 000400 SUB 0256. ,R4 iF IRST LOCATION IN BUFFER 

5904 057374 173%: ADO R2,R4 sSET UP POINTER 

5905 057376 021403 CMP CR4),R3 sCHECK DATA READ (R3=DATA ALSO) 

5906 057400 001410 BEQ 180$ 3sB8R, IF ALL IS WELL 

5907 057402 011401 MOV (R4),R1 sRECD DATA 

5908 057404 010302 MOV R3,R2 sEXPECTED DATA 

5909 057406 37 002212 INC FATFLG sBUMP COUNT 

5913 057412 ERRHRD ERRNO, T26D0TA,EXPREC SDATA READ NOT = WRITTEN 
057412 104456 TRAP CSERHRD 
057414 001154 -WORD 620 
057416 073362 .WORD T260TA 
0574 015564 .WORD EXPREC 

5914 057422 180$: CKLOOP sLOOP IF SELECTED 
057422 104406 RAP CSCLP1 

5915 057424 005724 TST CR4)- ;BUMP TO NEXT LOCATION 

5916 057426 160204 SUB R2,R4 sCORRECT RECORDS SIZE VALUE 

5917 057430 020403 CMP R4,R3 sEND OF RECORD YET 

5918 057432 001360 BNE 173% :8R, IF NOT AT END OF RECORD 

5919 057434 005723 TST CR3)>+ sBUMP RECORD SIZE 


Il 


TSV7 - HARDWARE TESTS !-8 MACRO M1113 14-JUN-84 14:17 SEQ 0215 
TEST 6: REREADS 
5920 057436 010337 072302 MOV R3, T26RSZ sSTORE RECORD SIZE 
5921 057442 022703 000412 CMP $266. ,R3 sEND OF RECORD YET 
5922 057446 001270 BNE 145% :BR, IF MORE RECORDS TO READ 
5923 057450 190$: CKLOOP sLOOP IF SELECTED 
057450 104406 TRAP CsCLPl1 
5924 057452 ENDSUB 3>>>>>>>>>>>: END SUBTEST »>>>>>>>>>>>> 
057452 L10104; 
057452 104403 TRAP CsESuUB 
$925 057454 023727 002212 000017 CMP FATFLG,@i5. 3IS ERROR COUNT AT 25 
5926 057462 103402 BLO 999% ;BR, IF LESS THAN 25 
5927 057464 004737 017272 JSR PC ,CKDROP :TRY TO DROP THE UNIT 
5928 057470 999%: 
5929 
5930 3° 
5931 3 
5932 ‘pegs 6, SUBTEST 3 
5933 
5934 ; VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=1 
5935 ;(READ REVERSE, SPACE FORWARD) AND SWB=0 OPERATES 
5936 sPROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN 
5937 = A SERIES OF TEST RECORDS VARYING IN LENGTH AND 
5938 sDATA CONTENT; THE FIRST FOUR BYTES OF EACH RECORD 
5939 } CONTAIN ITS RECORD NUMBER CINDICATING POSITION ON 
5940 ;TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH 
poet :TEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED. 
942 
5943 4. THE REREAD PREVIOUS COMMAND WITH OPP*1 IS ISSUED 
ee 8 AND THE RESULTS CHECKED 
5946 se. A READ FORWARD COMMAND IS THEN ISSUED AND THE 
5947 H DATA IS CHECKED TO i THAT THE TAPE WAS 
5948 3 POSITIONED PROPERLY AFTER THE REREAD PREVIOUS 
5949 3 OMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
5950 3 POSITIONED AT THE START OF <--* TEST RECORD). THE 
5951 F READ FORWARD COMMAND LEAVES THE TAPE POSITIONED 
oe H PROPERLY AT THE START OF THE NEXT TEST RECORD. 
é 
5954 3;THE BYTE COUNT ON EACH REREAD PREVIOUS COMMAND IS SET 
5955 370 THE LENGTH OF THE EXPECTED RECORD, SO NO 
oes sEXCEPTIONAL CONDITIONS SHOULD OCCUR. 
° 
5958 H 
5959 H 
5960 3 
5961 $- 
5962 
5963 057470 BGNSUB 3>>>>>>>2>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
057470 76.3: 
057470 104402 TRAP C$6SUB 
5964 057472 004737 075040 JSR PC, T26REST ;SET COMMAND PACKET 
5965 057476 005037 072276 CLR T26CNT ;CLEAR TAPE RECORD COUNTER 
5966 057502 004737 075132 JSR PC, T26RT2 ;SET UP OTHER COMMAND PACKET 
aad 057506 004737 075174 JSR PC, T26RT3 ;SET UP OTHER COMMAND PACKET 
5969 {SEES EEEEEESEEESESEEESEESEESESESSEESEESESESESSESEEEESSESESEESESESEEES 
5970 $ 
5971 ;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
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TSV7 - HARDWARE TESTES _- 


TEST 6: RERESOS 


5972 
5973 
5974 
5975 
5976 
5977 
5981 
$982 


057512 


004737 
103407 
005237 
010001 


104455 
001155 
00365° 


012124 
013737 


012704 


005054 
012124 
104406 


002172 
072120 


010752 
002212 


011104 


000002 
000200 


002212 


MACRO M1113 14-JUN-84 14;17 


072140 


: 
{ SSSSHASSSHESEHSESSSESHSSHSHSSHHESSSESHSHEESEESSESEEEESESHSEHESESEEEEEEEEE 


JSR PC, SOF INIT :00 IF INET WAS. OK CONTROLLER 


BCS 20% ;BR IF INIT 

TNC FATFLG ;BUMP COUN 

MOV RO,R1 ; CONTENTS OF TSSR REGISTER 

ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP 
- WORD 
- WORD 
WORD 


20$: MOV UNITN, T260SW ;SET \P UNIT NUMBER 
MOV @T26PACKET ,R4 
{PORSOSREEEEEEEESESEEEEEEEESEEEESSEESSESEESEEEEESDEEEEEERESEESEEESS 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
{ SSSHAASSSESSSHHASSSSSSSSSSSASESSSSHSESSHSSSSHEHSSHESSSSESESSESEESEESS 


JSR PC ,WRTCHR ; ISSUE WRITE CHARACTERISTICS 
BCS 26% ;8R, IF COMMAND ISSUED OK 


INC FATFLG ;BUMP COUNT 
;SAVE CONTENTS OF TSSR 


MOV RO,R1 

ERRHRD ERRNO, WRTMSG, SF IMSG ;WRITE CHARACTERISTISC —s 
. WORD 
- WORD 
. WORD 


26%: CKLOOP ;LOOP IF SELECTED 


TRAP 
F SSSESSSSSESSSSESSSESSSSSSESSEESSSESSSSSSEEHESESSEEESEEESESESEEEESESEEESSE 


SISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


é 
{SSSESSSSHESSSESESSSSSSESSESSESSESHESESSESSSESSESSESESSESSESESESESSESSESESSHESESES 


JSR PC ,REWINOD ;CALL TAPE REWIND COMMAND 


BCS 30% ;8R, IF NO PROBLEM 

MOV TSSRCRS),R1 GET TSSR 

MOV @SSR .R2 ;SET UP EXPECTED TSSR 

MOV RO,R4 sPACKET ADORESS SET UP 

INC FATFLG BUMP COUNT 

ERRHRD ERRNO, T26RWN,PKTSSR ; REWIND NOT ACCEPTED ann 
. WORD 
. WORD 
. WORD 

30$: CKLOOP ;LOOP IF SELECTED 

TRAP 


{ SSSESSSSSESSEESESESSESESESSESSESESSEESESSESSEEESSEESEEESESSESEEESSESESEEESES 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xXSTO) 


; SUBROUTINE NEEDS PACKET ADDRESS 


SEQ 9216 


CsCLPl 


TSV7 - HAROWARE TESTS 1-8 
REREADS 


TEST 6: 


6037 
6038 


057666 
057670 


013701 


012703 
013737 


072150 
000002 


oc2212 


000400 
003114 


140005 
072250 


017512 


000414 


072276 


KK] 


MACRO M1113 14-JUN-84 14:17 
{ORO RPREEEAEREESEEEOEEEEEESOEESERESSOSESEESEEEESEEESEESEEESESESEEES 

MOV T26BFR+6,R1 sPICK UP xXSTO 

MOV R1,R2 ;SET UWP EXPECTED 

BIS OBIT1,R2 sSET BOT BIT IN EXPECTED 

CMP R1i,R2 s;DOES EXP = REC'D 

BEG 40% ;BR, IF EQUAL (OK) 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T26B0T ,EXPREC ; TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 624 
-WORD T2680T 
-WORD EXPREC 


072252 


072250 


123160 
072276 


408: CKLOOP sL00P IF SELECTED 


TRAP CsCLPl 
MOV #256. .RS sRECORD SIZE 
MOV FREE , T26R8 sSTARTING WRITE BUFFER ADDRESS 


3 SSHSSHSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSESSSSSSSSSSESSSSSSEESSEESESE 
;WRITE DATA,CVC*1,ACK COMMAND 
WYTTTTTTTTTITITITITITITTTITITITITT TTL TTT TLL 


MOV #140005 , T26PK3 ;WRITE DATA,CVC*1,ACK COMMAND 
MOV @T26PK3 24 ;SET UP R4 WITH PACKET ADORESS 


65$: 
MOV R3,RO ;SET PATTERN IN CORRECT REGISTER 
JSR PC,FILLMEM sFILL MEMORY WITH RECORD SIZE 
MOV R3,T26SZ ;SET WwW CORD SIZE IN PACKET 
MOV T, @FREE sMOVE TAPE RECORD NUMBER TO BUFFER 
ADC #1, T2SCNT sNUMBER READY FOR NEXT RECORD 
MOV R4, TSOBCRS) ; ISSUE COMMAND 
JSR »WAITF ;WAIT FOR SSR TO SET 
MOV TSSRCRS),.R1 ;GET TSSR CONTENTS 
MOV @SSR ,R2 ;SET UP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 75% ;BR, IF OK 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
.WORD 625 
. WORD WRTERR 
. WORD PKTSSR 
758: CKLOOP ;L00P IF SELECTED 
TRAP CSCLPl 
TST (R3)- ;BUMP THE RECORD SIZE 
CMP $268. ,.R3 sMAXIMUM SIZE YET 
BEQ 120% ;BR, IF AT END OF WRITE SEQUENCE 
- BR 65% ;WRITE MORE RECORDS 
120%: 
CLR T26CNT ;SET RECORD COUNTER BACK TO ZERO 


{ SSSSSESSSSSSSESSESSSSESSESESSSSSESSSSESSESSESSSSSSSSSESSESSSESSESSESESSESEES 


; 
s; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


SEQ 0217 


ee 


TEST 6: RERE 


013701 
010102 
02 


012703 


013737 


012737 
012704 


011104 


000002 
000200 


002212 


000001 
010556 


000400 
003114 


161001 
072250 


MACRO M1113 14-JUN-84 14:17 SEG 


072252 


072250 


JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
BCS 1308 ;6R, IF NO PROBLEM 
MOV TSSR(RS),R1 iGET TSSR 
MOV @SSR ,R2 ;SET UP EXPECTED TSSR 
MOV RO,R4 s;PACKET ADORESS SET UP 
INC FATFLG BUMP COUNT 
ERRHRD ERRNO, T26RWN,PKTSSR ;REWIND NOT ACCEPTED 
TRAP CSERHRO 
- WORD 
-WORD | 
-WORD PKTSSR 
130%: CKLOOF ;LOOP IF SELECTED 
TRAP CSCLPl 
jPORSSSE SS SEEEEESESEEEEEEEEEEESSEESEEEEEEEESEEEEEEEEEEEEEEEEEEEEEES 
; 
s;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
j PROSSER ESSEEEESESEESSESSEEEEEEEEEEEEEEEESEESESESEESESESEEESEEEES 
MOV T26BFR+6,R1 sPICK UP XSTO 
MOV R1,R2 :SET UP EXPECTED 
BIS @BIT1,R2 ;SET BOT BIT IN EXPECTED 
CMP R1,R2 ;DOES EXP = REC'D 
BEQ 140$ ;BR, IF EQUA (0K) 
INC FATFLG ;BUNP COUNT 
ERRHRD ERRNO, T2680T ,EXPREC ; TAPE NOT AT BOT AFTER — 
CSERHRD 
"eno 627 
-.WORD T2680T 
.WOXD EXPREC 
140%: CKLOOP ;LOOP IF SELECTED 


TRAP CSc. Pl 
aaa aise ceaa a sti inst nel eee hee: 


SISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
=" 15 SETS DIRECTION - O=FORWARD 1 -RE VERSE 


MOV #1,R3 SPACE 1 RECORD FORWARD 
JSR PC , SPACE sSPACE CALL 
MOV #256. .RS sRECORD SIZE 


150%: MOV FREE , T26R8 :STARTING READ BUFFER ADORESS 
j POSSESSES SEEEEEEESEESESEEEEESEEEDEEEEEEEESESESEEESEEESEOEEEEEECS 
;REREAD DATA,CvC=1,ACK, OPP COMMAND 

, Posescccoscoscoonoosssonooosscooeccesesoooessooooososooooooooooses 


MOV #161001, T26PKS sREREAD DATA,CVC=:. ACK, OPP 
165$: MOV OT26PK3,R4 ;SET UP R4 WITH PACKET ADORE 


0218 


TSv7 
TEST 6: 


- HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEG 0219 
REREADS 


010337 072256 MOV R3,T26S2Z ;SET UP RECORD SIZE IN PACKET 
010465 000000 MOV R4, TSOB(RS ) ; ISSUE COMMAND 
004737 01634C JSR PC ,WAITF ;WAIT FOR SSR TO SE’ 
016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
012702 000200 MOV @SSR RO} ;SET UWP EXPECTED 
020102 CMP R1,Re2 ;ARE THEY EQUAL 
001406 BEG 170$ ;6R, IF 
005237 002212 INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T26RRG,PKTSSR ;TSSR INCORRECT AFTER ao DATA 

104456 C SEREROD 
001164 en 626 
072622 . WORD T26RRG 
012136 . WORD Px TSSR 

1708: CKLOOP ;L00P IF SELECTED 
104406 TRAP CsCl Pi 
005723 TST (R3)- ;B8UPP RECORD S 
062737 000001 072276 ADD #1, T26CNT ;BUPP TAPE RECOM COUNTER 


{ SSHSSSSHSSHSSSSSHSSSSHSSSSSSSSSSSSSSSSSSSESSESESSSSSSESSESSEESSEESEEE 


;READ DATA, CvC=1, ACK COMMAND 


: 
{ SSSHSSSSASSSSHHSSSSSHSSSSSSSHSSSSSSSSSSTESSSSSSSSSSSSSSSSSSSSESESE 


012737 140001 072250 MOV #140001 , T26PK3 sREAD DATA, CvC=*1, ACK COMMAND 
010337 072256 MOV R3,T26SZ ;SET SIZE INTO PACKET 
010465 000000 MOV R4, TSOBCRS) ; ISSUE READ DATA COMMAND 
004737 016340 JSR PC ,WAITF ;WAIT FOR SSR 
016501 000002 MOV TSSRCRS),R1 ;PICK UP THE TSSR 
012702 000200 MOV @SSR ,R2 ;SET UWP EXPECTED 
020102 CMF R1,R2 ;IS THE TSSR Ox 
001406 BEQ 195% ;B8R, IF TSSR Ok (GOOD) 
005237 002212 INC FATFLG ;BUPP COUNT 
ERRHRD ERRNO,RDERR ,PKTSSR ;READ DATA COMMAND rane 
104456 Rap C8ERERO 
001165 no 629 
005204 “WORD «=- ROERR 
012136 . WORD PK TSSR 
195$: CKLOOP ;LOOP IF SELECTED 
104406 TRAE CscL Pl 
017701 122606 MOV @FREE ,R1 :FIRST WORD FROM READ BUFFER 
013702 072276 MOV T26CNT ,R2 ;SET UP EXPECTED 
020102 CMP R1,R2 ;IS TAPE POSITION CORRECT 
001406 BEQ 197% sKEEP GOING POSITION OK 
005237 002212 INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T26WNG, EXPREC ; TAPE POSITION sprrecettaness 
104456 TRAP CSERHRD 
001166 -WORD 6% 
072306 . WORD T26WNG 
015564 . WORD EXPREC 
197%: CKLOOP 
104406 TRAP CsCLPi 
022703 000412 CMP 9266. ,R3 ;AT MAX SIZE YET 
001401 BEQ 200$ ;BR, IF AT END OF THE SUBTEST 
000672 aa BR 150$ ;KEE? GOING MORE RECORDS 
ENODSUB 3 2>>> »>>>>> END SUBTEST >> >>>>>>>>>> 


a ee oe | i+ - -- — 


N1 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEG 0220 
TEST 6: REREADS 

060344 L10105: 
060344 104403 TRAP CsESuB 

6181 060346 023727 002212 0000:7 CMP FATFLG,@15. :IS ERROR COUNT AT 25 

6182 060354 103402 BLO 999$ ;B8R, IF LESS THAN 25 

6183 060356 004737 017272 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 

6184 060362 999$: 

6185 

6186 3° 

6187 3 

6188 ;TEST 6, SUBTEST 4 

6189 3 

6190 ;VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=1 

6191 sAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS 

6192 ;THE SAME THAT IS USED IN SUBTEST 3, BUT IT IS 

6193 ;VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 

6194 ;SWAPPED BYTES. 

6195 3 

6196 3 

6197 ; 

6198 3 

6199 ie 

6200 

6201 060362 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>>> 
060362 76.4: 
060362 104402 TRAP C$8Su8 

6202 060364 004737 075040 JSR PC, T26REST ;SET COMMAND PACKET 

6203 060370 005037 072276 CLR T26CNT ;CLEAR TAPE RECORD COUNTER 

6204 060374 004737 075132 JSR PC, T26RT2 ;SET UP OTHER COMMAND PACKET 

es 060400 0047357 075174 JSR PC, T26RT3 ;SET UP OTHER COMMAND PACKET 

6207 fs ERERAESESSAERESRERESESESEESERESESEESESEEEEEEEEEEEEEEEESEEEEEEEEDEEE 

6208 3 

ores ; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

6211 o ESEREREKGEEAGUERESERAERAEKEREHERRERERKESRAEEEEAEEAERHRAREEEECE RRA EERE 

6212 

6213 060404 004737 016064 JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 

6214 060410 103407 BCS 20$ :B8R IF INIT WAS OK 

6215 060412 005237 002212 INC FATFLG sBUMP COUNT 

6219 060416 010001 MOV RO,R1 i CONTENTS OF TSSR REGISTER 

6220 060420 ERRDOF ERRNO, SFIERR,SFIMSG sF4TAL ERROR TSSR WAS NOT OK 
060420 104455 TRAP CSEROF 
560422 001167 . WORD 631 
060424 003650 WORD SFIERR 
060426 012124 WORD SFIMSG 

at 060430 013737 002172 072140 208: MCV UNITN, T26D0SW ;SET UP UNIT NUMBER 

oe 960436 012704 072120 MOV @T26PACKET ,R4 ;sSUBROUTINE NEEDS PACKET ADDRESS 

6225 j SOSEEEEEEESEEEEEEEEESEEESSESEEEEEEAREESEEEESAEAESEEEEEERESEEEEEEEEESD 

6226 ; 

ot ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

6229 j COS SSESESEEEEESESEEEEEEEEEEEESEAESESEEESEEEEEESESEESRRESESRESERESEEEDREEEE 

62% 

6231 060442 008737 010752 JSR PC, WRTCHR ; ISSUE WRITE CHARACTERISTICS 

6232 0604646 103407 BCS 26s ;BR, IF COMMAND ISSUED OK 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 : SEQ 0221 
TEST 6: REREADS 
6233 060450 005237 002212 INC FATFLG sBUMP COUNT 
6237 060454 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
6238 060456 ERRHRD ERRNO, WRTIMSG, SF IMSG ;WRITE CHARACTERISTISC FAILED 
060456 104456 TRAP CSERHRD 
060460 001170 -WORD 632 
060462 005054 . WORD WRTMSG 
060464 012124 . WORD SF IMSG 
6239 060466 263: CKLOOP sLOOP IF SELECTED 
060466 104406 TRAP CSCLPi 
0 
coat FOMSOASRESAHEASSEERASSESERAEAEEESHERESHHEHEEEHGOREOERESEEEESESESEES 
6242 3 
6243 s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
6244 
6245  penngneuesensamesabesnennbennbnnseennennnentbnnnnnennteunsenenes 
6246 
6247 060470 004737 011104 JSR PC ,REWIND sCALL TAPE iy B COMMAND 
6248 060474 103413 6csS 30% 3s8R, IF NO PROBLEM 
6249 060476 016501 000002 MOV TSSRCRS),R1 3GE1 TS 
6250 060502 012702 000200 MOV @SSR ,R2 3SET UP EXPECTED TSSR 
6251 060506 010004 MOV RO,R4 sPACKET ADORESS SE? UP 
6252 060510 005237 002212 INC FATFLG sBUMP COUNT 
6256 060514 ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
060514 104456 TRAP CSERHRO 
060516 001171 -WORD 633 
060520 073604 WORD T 
060522 012136 -WORD PKTSSR 
6257 060524 30%: CKLOOP ;LOOP IF SELECTED 
060524 104406 TRAP CSCLPi1 
6259 eiTIiiitiriiiiiiiriiiiiiiiiiitiiiiiiiiitiititiiititiiiitititititty 
6260 F 
vot sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
6263 Pn NN ae 
6264 
6265 060526 013701 072150 MOV T26BFR°6.R1 sPICK UP XSTO 
6266 060532 010102 MOV R1,R2 ;SET UP EXPECTED 
6267 060534 052702 000002 BIS #BIT1,R2 3SET BOT BIT IN EXPECTED 
6268 060540 020102 CMP R1,R2 sD0ES EXP = REC'D 
6269 060542 001406 BEQ 40% sBR, IF EQUA (OK) 
6270 060544 005237 002212 INC FATFLG sBUNP COUNT 
6274 060550 ERRHRD ERRNO, T26B80T ,EXPREC i TAPE NOT AT BOT AFTER — 
060550 104456 TRAP CSERHRD 
060552 001172 «WORD 634 
060554 073315 . WORD T2680T 
060556 015564 -WORD EXPREC 
6275 060560 40%: CKLOOP sLO0P IF SELECTED 
104406 TRAP CsSCLPl 
6276 060562 012703 000400 MOV 0256. .R3 sRECORD SIZE 
ret 060566 013737 003114 672252 MOV FREE , T26RB8 sSTARTING WRITE BUFFER ADDRESS 
6279 PIT iiititiiiiiiiiiiiiiiitititiititiitiiiiiiiiiiitiiititiiititititt ty) 
6280 3 
aes sWRITE DATA,CVC*1,ACK COMMAND 
6283 | satiate ina tame ncicheitetai dancin lai iatinreiinian rian enema 


SSS SSS SSS sss 


TSV? - 
TEST 6 


6335 
6336 060752 


012737 
012704 


013701 


HARDWARE TESTS 1-8 
: REREADS 


140005 
072250 


017512 


000412 


072276 


072150 





SEQ 9222 


MACRO M1113 14-JUN-84 14:17 
072250 MOV #140005 , T26PK3 sWRITE DATA,CVC*1,ACK COMMAND 
oe MOV OT26PKS ,R4 sSET UP R4 WITH PACKET ADDRESS 
MOV R3,RO sSET PATTERN IN CORRECT REGISTER 
JSR PC,FILLMEM sFILL MEMORY WITH RECORD SIZE 
MOV R3, T2682 sSET UP RECORD SIZE IN PACKET 
122266 MOV T T @FREE sMOVE TAPE RECORD NUMBER TO BUFFER 
072276 ADO #1, T26CNT sNUMBER READY FOR NEXT RECORD 
MOV R4, TSDBC RS) s ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR T) SET 
MOV TSSRCRS),R1 sGET TSSR CONTENTS 
MOV @SSR Re sSET UP EXPECTED 
cup R1,R2 sARE THEY EQUAL 
BEQ 75% s6R, IF OK 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, WRTERR ,PKTSSR sTSSR INCORRECT AFTER REREAD DATA 
TRAP CSERMRD 
-WORD 635 
-WORD  WRTERR 
-WORD PKTSSR 
758: CKLOOP sLOOP IF SELECTED 
TRAP CSsCLPi 
TST (R3)+ sBUMP THE RECORD SIZE 
CMP 0266. .R3 sMAXIMUM SIZE YET 
BEQ 120% 3BR, IF AT END OF WRITE SEQUENCE 
saa BR 65% sWRITE MORE RECORDS 
CLR T26CNT sSET RECORD COUNTER BACK TO ZERO 
j OCS SSO SSDOSESESOOSEEEEEEESEESEEDESEEEEEEEESEEEEEAEEEEESESEEEEEES 
; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
; 
j POCO SSSSESEREREREREDESEDEEEEDESELESEDEDEEEEEDESESESESEEEELESEEES 
JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
BCcsS 4 :;6R, IF NO PROBLEM 
MOV TSSRCRS),R1 sGET TS 
MOV SR ,R2 sSET UP EXPECTED TSSR 
MOV .R4 sPACKET ADORESS SET UP 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
AP CSERHRD 
-WORD 636 
-WORD T26RWN 
-WORD PKTSSR 
130%: CKLOOP sLOOP IF SELECTED 
TRAP CsCi.P 1 
pOOOSOSSeSeSeresesereseesesesensesecereeresesceseseseseseseooceoecs 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
; 
p POSS Oeeeeeeessesresereseseseseesesseseooeeeesoorsooecoceccesesecess 
MOV T26BFR+6,R1 sPICK UP XSTO 





De’ 


TSV? - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 9223 
TEST 6: REREADS 
6337 060756 010162 MOV R1,R2 sSET UP EXPECTED 
6338 060760 052702 000002 BIS @BIT1,R2 ;SET BOT BIT IN EXPECTED 
6339 060764 020102 CMP R1,R2 ;DOES EXP = REC'D 
6340 060766 001405 BEQ 1408 1BR. IF EQUAL (OK ) 
6341 060770 005237 002212 INC FATFLG 
6345 060774 ERRHRD ERRNO, T26B0T,EXPREC ITAPE NOT at BOT AFTER REWIND 
060774 104456 CSERHRD 
060776 001175 TMORD 637 
061000 073315 “WORD 126807 
061002 015564 “WORD  EXPREC 
6346 061004 140$:  CKLOOP ;LOOP IF SELECTED 
te 061004 104406 TRAP ss CSCLP1 
6 
6348 “RED Ra Ne RG eo ee me eee 
6349 
6350 FISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
6351 :BIT 15 SETS DIRECTION - O=FORWARD 1*REVERSE 
6 3 
6353 FSOSSSHASSSASSSSSSSSHHSHSSHSSSEHSHSSSSSESSSSSSSOSSOHS~SSSSSESSSESSEEEE 
6354 
6355 061006 012703 000001 MOV #1,R3 :SET UP SPACE FORWARD 1 
6356 061012 004737 010556 JSR PC. SPACE sISSUE SPACE COMMAND 
6357 061016 012703 000400 MOV 0256. .R3 sRECORO SIZE 
6538 061022 013737 003114 072252 150%: MOV FREE , T26R8 sSTARTING READ BUFFER ADDRESS 
6360 FSOSAESSSEHHEESEHSOSSSESSEEEESESEHEHEEEHESHSHSHESHEHEHESEEESEEESEEES 
6361 3 
6362 sREREAD DATA,CVC*1,ACK, OPP COMMAND 
3 | 
6364 J SSHSHHSSSSSSSHSSHSSSSSHASSSSSSSSSSSSSSSSHHSSHSSASSSSSSSHESSESHSSSEEEE 
6365 
6366 061030 012737 171001 072250 MOV #171001, T26PK3 sREREAD DATA,CVC*1,ACK, OPP COMMAND 
6367 061036 012704 072250 165%: MOV OT26PK3.R4 ;SET UP R4& WITH PACKET ADORESS 
6368 061042 010337 072256 MOV R3,126SZ 3SET UP RECORD SIZE IN PACKET 
6369 061046 010465 000000 MOV R4, TSOBC(RS) , 
6370 061052 004737 016340 JSR ;WAIT FOR SSR TO SET 
6371 061056 016501 000002 MOV TSSR(RS),R1 :GET TSSR CONTENTS 
6372 061062 012702 000200 MOV @SSR,R2 3SET UP EXPECTED 
6373 061066 020102 CMP R1,R2 ;ARE THEY EQUAL 
6374 061070 001406 BEQ 170% :8R, IF OK 
6375 061072 005237 002212 INC FATFLG ;BUMP COUNT 
6379 061076 ERRHRD ERRNO, T26RRF ,PKTSSR ITSSR INCORRECT AFTER REREAD DATA 
061076 104456 CSERHRO 
061100 001176 TWORD 636 
061102 072525 "WORD  T26RRF 
061104 012136 "WORD  PKTSSR 
6380 061106 170%:  CKLOOP ;LOOP IF SELECTED 
061106 104406 TRAP —s-_-« CSCLP1 
6381 061110 017701 122000 MOV OFREE ,R1 ;FIRST WORD FROM READ BUFFER 
6382 061114 013702 072276 MOV T26CNT ,R2 sSET UP EXPECTE | 
6383 061120 000302 SWAB séRRD ;SWAP BYTES IN EXPECTED 
6384 061122 020102 CMP R1,R2 sI1S TAPE POSITION CORRECT 
6385 061124 001406 BEQ 1908 ;KEEP GOING POSITION OK | 
6386 061126 005237 002212 INC FATFLG sBUMP COUNT 
6390 061132 ERRHRD ERRNO, T26WNG, EXPREC sTAPE POSITION INCORRECT 


061132 104456 TRAP CsERHRD 
. WORD 





TSV7 - HARDWARE TESTS 1-8 


TEST 6: REREADS 


061136 
061140 
6391 061142 
061142 
6392 063144 
6393 061146 


072306 
015564 


104406 
005723 
062737 


012737 
010337 


000001 


121660 
072276 


002212 


000410 


002212 
017272 





072276 


000017 


a ne en ce a ae ee + a ne eee ee eee ere eee +e ee eee | 


a. 


MACRO M1113 14-JUN-84 14:17 SEQ 0224 
. WORD T26WNG 
«WORD EXPREC 
190$: CKLOOP 
TRAP CSCLP1 
TST (R3)> sNEXT RECORD SIZE 
ADD #1, T26CNT sBUMP TAPE RECORD COUNTER 
{ORAAHAASHAEHAEAESAEHESEEEEEEEEEEREEESEEAEEREREEEEEEEEEEOEEEOESEEES 
H 
sREAD DATA, CvC*1, ACK COMMAND 
a 
FOCHOSEAEREHEEEEEEESEEEEEEOEESEEREEEEEEESEEOSEESEESHODEDEEESEASESEES 
MOV #140001, T26PK3 sREAD DATA, CVC*1, ACK COMMAND 
MOV R3, T26SZ sSET SIZE INTO PACKET 
MOV R4, Mi > = Soa sISSUE READ DATA COMMAND 
JSR »WAITF sWAIT FOR S 
MOV TSSR(RS), Ri sPICK UP THE TSSR 
MOV @SSR ,R2 sSET UP EXPECTED 
CMP Ri, R2 :IS THE TSSR OK 
BEQ 215% s6R, IF TSSR OK (GOOD) 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26ROF ,.PKTSSR ;READ DATA COMMAND inne 
CSERHRD 
TWoRD 640 
-WORD T26ROF 
-WORD PKTSSR 
2158: CKLOOP sLOOP IF SELECTED 
TRAP CscCLPl 
MOV @FREE .R1 sFIRST WORD FROM READ BUFFER 
MOV T26CNT ,R2 sSET UP EXPECTED 
CMP Rl, :IS TAPE POSITION on 
BEQ 217% 3 GOING POSITION OK 
INC FATFLG sBUMP COUNT 
ERRHRD 26WNG , EXPREC ; TAPE POSITION INCORRECT 
TRAP CSERHRD 
-WORD 641 
. WORD T26WNG 
.WORD EXPREC 
217%: CKLOO 
TRAP CSscCLP1 
0264. ,R3 sAT MAX SIZE YET 
BEQ 220% sBR, IF AT END OF THE SUBTEST 
anes BR 150% ;KEEP GOING MORE RECORDS 
ENODSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10106: 
TRAP CsESuB 
CMP FATFLG,@15. :IS ERROR COUNT AT 25 
BLO $ ;BR, IF LESS THAN 25 
one JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
$: 


3* 


; 
sTEST 6, SUBTEST 5 
; 


TSV7 - HARDWARE TESTS 1-8 


TEST 6: 


REREADS 


061350 012124 
061352 013737 


061360 012704 


005054 
061406 012124 
061410 104406 


075040 
075132 
075174 


016064 
002212 


002172 
072120 


010752 
002212 


MACRO M1113 14-JUN-84 14:17 ‘ SEQ 0225 


072140 


sVERIFIES THAT A REREAD PREVIOUS COMMAND READING A 
sRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES 
:TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
sLONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH 
sSTATES OF OPP (O AND 1). 

; 

; 

; 

H — 


BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>»> 
76.5: 
TRAP Cs$6SUB 
JSR PC, T26REST sSET COMMAND PACKET 
JSR PC, T26RT2] sSET UP OTHER COMMAND PACKET 
JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 


J SSSSESASSSSHASSSSSSSEHSSSSEHSASSSSSESSSSSHASSSESSSKSSESSSESEESESEEESD 


i 
ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


e 
LEREKRERHAKERHARSESAESHESHAS HA SASHHHHESELEKESSHEAERRSRAAEAREEKSHERSEDSD 


JSR PC, SOF INIT 300 INITIALIZE On CONTROLLER 
BCS 20% 38R IF INIT WAS OK 
INC FATFLC ;BUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR,SFIMSG tFATAL ERROR TSSR WAS NOT OK 
CSEROF 
.WORD 642 
.WORD SFIERR 
“WORD  SFIMSG 
208: MOV UNITN, T260SW ;SET UP UNIT NUMBER 
MOV O@T26PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADORESS 
{ SSSSSESSHSSHSSSSSSSHSHESSESSSSHSSSESESSEASEHSESSESSHHSHHSESEEHSESHEEESDES 
3 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) | 
: 
F SSSSSSSHSSSSSSSSSSSSSSSHSSSHSSSSSSSSSHESSHSSSSSESSESSSSSSSSSSHSSHESEEEE 
JSR PC, WRTCHR sISSUE WRITE CHARACTERISTICS 
ecs 26% :8R, IF COMMAND ISSUED OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRHRU ERRNO,WRTMSG, SFINSG ; WRITE CHARACTERISTISC FAILED 
CSERHRD 
TWORD 643 
.WORD WRTMSG 
.WORD SFIMSG 


26%: CKLOOP sLOOP IF SELECTED 
TRAP CsCLP1 


FSSOSSEEEHSESESHEESEESEEHSESSEESEESESESESESASSESSSESHSHSSSHSASHSEASEEEESESE 
: 





TSV7 - HARDWARE TESTS 1-8 
ADS 


TEST 6: RERE 


: 


6543 061560 


013701 
010102 


104406 
012703 
013737 


012737 
012704 


010337 


001000 
003114 


rt re ne ne es ees ee oe eee essere are 


Ge 


MACRO M1113 14-JUN-84 14:17 


072252 


s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


i 
FERRAHARARAAHHAASHESSASESHHAESESHSHEHESESEEAHEEEEEEESEEERSEEHEEEEESEEHOEES 


30%: 


NC 
ERRHRD 


CKLOOP 


PC ,REWIND 
30% 
TSSRCRS),R1 
es 


RO,R4 
FATFL 


G 
ERRNO, T26RWN,PKTSSR 


SEQ 0226 

sCALL TAPE REWIND COMMAND 

s6R, IF NO PROBLEM 

3GET TSSR 

3SET UP EXPECTED TSSR 

sPACKET ADORESS SET UP 

sBUMP COUNT 

sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 644 
WORD T26RWN 
. WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CSCLP1 


FSSSSHSAHSSASSASSSSAHSSHSSSAHSSSHHESHSSHESEHESSSSSSHEHSSESSSEHHESEEEEEE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


o 
J SSSHSSHSSSASHHSSSSSSHSHSSHSSHSSESSHESSESSHSSHSSESSHSSSSHKESSSSHESEEESES 


40%: 


MOV 


CKLOOP 


MOV 
MOV 


T26BFR+6,R1 
R1,R2 
ag 


FATFLG 


ERRNO , T26B0T , EXPREC 


#512. ,R3 
FREE , T26RB 


sPICK UP XSTO 

s;SET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
sDOES EXP = REC'D 

BR, IF EQUAL (OK) 


sBUMP COUNT 

sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 645 
«WORD T2680T 
WORD EXPREC 


sLOOP IF SELECTED 


sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


{ FOSSSSSSESSSSSSEHSSESSSASSSSESSESHSSSESSESSESSSEHESSSESSEHRSESSESSSESSSEEHED 


;WRITE DATA,CVC*1,ACK COMMAND 


° 
FPSSESSHESHESHESSSASSESSSSSSESSSSEHESSESSSSSSSHSSHASSSESHESEEESAEEEESES 


65%: 


#140005 , T26PK3 
@T26PK3 ,R4 


TSSR(RS),R1 
R1,R2 

75$ 

FATFLG 


sWRITE DATA,CVC=1,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 


sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 
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TEST 6: 


6547 


6548 


6549 
6550 


REREADS 
061564 
061564 


061574 
061574 104406 
061576 005303 
061600 013737 


061606 012737 


061666 013701 
061672 ors 


104406 
061722 012703 
061726 013737 


003114 


002212 


072150 
010000 


002212 


000777 
003114 


HO 
MACRO M1113 14-JUN-84 14:17 SEQ 0227 
ERRHRD ERRNO, WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRO 
. WORD 646 
WORD WRTERR 
-WORD PKTSSR 
75$: CKLOOP sLOOP IF SELECTED | 
TRAP CsCLP1 
DEC R3 ;SET RECORD SIZE TO 511 
072252 MOV FREE , T26R6 


;STARTING READ BUFFER ADDRESS | 


FPAHHAAASEHASSSEASEHEHEASSHEEKESESHEEESASEEEASOESOESESEHOEEEEHESESEEES 


; 
sREREAD DATA,CVC=1,ACK,OPP=1 COMMAND 


‘ 
FRSCARSSASAASSSSSEHAASASSASSHEHSAESEHSAEESE SESE SEESEESEEESEESESKESEEEESEEE 


072250 MOV rt ote WS ti sREREAD DATA,CVC=1,ACK,OPP=1 COMMAND 
165%: MOV OT26PK3 ,R sSET UP R4 WITH PACKET ADDRESS 
MOV R3, T26SZ sSET UP_RECORD SIZE IN PACKET 
MOV R4, — 31S OMMANOD 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSR(RS),R1 sGET TSSR CONTENTS 
MOV @SSR!SC!BIT2,R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 170% :BR, IF OK 
BUMP 
CSERHRD 
. 647 
-WORD T26TRL 
WORD PKTSSR 
170%: CKLOOP sLOOP IF SELECTED 


TRAP CSCLP1 
jPCOSRESEERSSEESERERESEESERESESEESEEEEESEEREDERESEESEESEDEEDEESESEES 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


6 
J SSSHSSSSSSSSHSSSESASSSSSSSSHSESASSESSEESSSESSSSSSSSSSOSSSSHSHKSESHESEESE 


INC FATFLG COUNT 
ERRHRD ERRNO, T26TRL .PKTSSR ;TSSR INCORRECT AFTER es DATA 


MOV T26BFR+6,R1 sGET MESSAGE BUFFER 
MOV R1,R2 sSET UP EXPECTED 
BIS #6IT12,R2 SSET THE RLL BIT IN EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEG 180% sBR, IF EQUAL CALL IS WELL) 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26LON,EXPREC sTHE RLL BIT WAS NOT 7 we. 
-WORD 64 
-WORD T26LON 
«WORD EXPREC 
180%: CKLOOP sLOOP IF SELECTED 
TRAP CsCLPi 
MOV #511. ,R3 sSET RECORD SIZE 
072252 MOV FREE , T26RB sSTARTING READ BUFFER ADDRESS 


| 
SPSSHEEHSESESSHASEHESSESEEHESESEESESESHESEAEHESEESSESEHESHEEHEEEEEEEHEDESE 
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6600 061734 012737 


6622 062014 013701 
6623 062020 010102 


141001 

72250 
072256 
000000 


072150 
010000 


002212 


002212 
017272 


072250 





MACRO M1115 14-JUN-84 14:17 
sREREAD DATA,CVC*1,ACK COMMAND 
; 
J REEREARARARAREEEEEAEEREAERERAEREREREREEEEEEERESEES EER ERE DEE EEEEEEEE 
MOV #141001, T26PK3 sREREAD DATA,CVC=1,ACK COMMAND 
365%: MOV @T26PK3, RA sSET UP R4 WITH PACKET ADDRESS 
MOV R3,T26SZ sSET UP RECORD SIZE IN PACKET 
MOV R4, TSDBCRS ) s ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS), Ri sGET TSSR CONTENTS 
MOV @SSR!SC!6IT2, Re sSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 370% sBR, IF OK 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26TRL ,PKTSSR sTSSR INCORRECT AFTER REREAD DATA 
TRAP CSERHRD 
-WORD 649 
-WORD T26TRL 
-WORD PKTSSR 
370$: CKLOOP sLOOP IF SELECTED 


000017 


TRAP CSCLP1 
FERARESAESEESESEESEEEEEESEEESESESEEEEEEREEOEEEREROREEEEEEEEEESESESS 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
{ FRSSSSHSSSHSSESSSSSSSESESSESSSSESSESSSASSSSSSEHAKASHEESSSSSHHSESESEESEESE 


MOV T26BFR+6,R1 3;GET MESSAGE BUFFER 

MOV R1,R2 ;SET UP EXPECTED 

BIS @BIT12,R2 ;SET THE RLL BIT IN EXPECTED 

CMP R1,R2 sARE THEY EQUAL 

BEQ 380$ ;BR, IF EQUAL CALL IS WELL) 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T26LON,EXPREC ; THE RLL BIT WAS NOT al . xSTO 

CSERHRD 
. 650 
.WORD T26LON 
-WORD EXPREC 
380$: CKLOOP 

TRAP CSCLP1 

ENOSUB ;>>>>>>>>>>>3> END SUBTEST >>>>>>>>>>>> 

L10107: 

TRAP CsESUB 

CMP FATFLG,@15. sIS ERROR COUNT AT 25 

BLO 999% :BR, IF LESS THAN 25 

JSR PC ,.CKDROP ;TRY TO DROP THE UNIT 


9998: 
" 

{TEST 6, SUBTEST 6 

iVERIF TES THAT A REREAD PREVIOUS COMMAND READING A 


Cc SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES 
; TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 


SEQ 0228 
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RERE 


062100 


012124 
013737 


012704 


005054 
012124 
104406 


075174 


016064 
002212 


002172 
072120 


010752 
002212 


072140 


J c 


MACRO M1113 14-JUN-84 14:17 SEQ 0229 
;SHORT (RLS) BIT SET. IT IS VERIFIED THAT THE 
sRESIDUAL BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER 
S CONTAINS THE PROPER NONZERO VALUE (E.G., THE 
;DIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE 
;ACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH 
;STATES OF OPP (O AND 1). 
if BGNSUB 3 >>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>»>>> 
76.6: 
TRAP C$6SUB 
JSR PC, T26REST ;SET COMMAND PACKET 
JSR PC, T26RT2 sSET UP OTHER COMMAND PACKET 
JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 
fs PAHAKSAESAASEERSEEEEHEAESEEEEEESEEESREEEEASHEESEEESEERESERSEEEEDEED 
é 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
5 000000000000000000000000000000000000000000000000000000000000080000 
JSR PC ,SOF INIT 300 INITIALIZE ON CONTROLLER 
BcS 20$ ;B8R IF INIT WAS OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT 0K 
TRAP CSEROF 
. WORD 651 
. WORD SFIERR 
SF IMSG 
20%: MOV UNITN, T260SW ;SET UP UNIT NUMBER 
MOV @T26PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
s PESEAEEEHEESESESSSEESESESEHEESESEESESESSESEHEESHES SEES EE DESEERERES 
;WRITE CHARACTERISTICS COMMANL (CALL TO WRTCHR) 
| ecccccscceccsosccssocossseossocessssoesceosscoosscosccseceseeecees 
JSR PC ,.WRTCHR :ISSUE WRITE CHARACTERISTICS 
BCS 26$ ;68R, IF COMMAND ISSUED OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG , SF IMSG ;WRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 652 
. WORD WRTMSG 
-WORD SFIMSG 
26%: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 


{ FSSSSESSSEESSESSSESESHESSESESSSSESESSSSHSEESESHESSESHESESESSEEHHHSEEEESD 


SISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 





Ke 


TSV? - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEG 0230 
TEST 6: REREADS 

6698 : 

6699 {SPREE EHASESSSEAHAESASEEESEEEEEEEESEASEEEEEESEREEESEHE SECS ECE EEE SE 

6700 

6701 062170 004737 011104 JSR PC REWIND :CALL TAPE REWIND COMMAND 

6702 062174 103413 Bcs 30$ :8R, IF NO PROBLEM 

6703 062176 016501 000002 MOV TSSRC(RS),R1 :GET TSSR 

6704 062202 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED TSSR 

6705 062206 010004 MOV RO,R4 ;PACKET ADDRESS SET UP 

6706 062210 005237 002212 INC FATFLG :BUMP COUNT 

6710 062214 ERRHRD ERRNO, T26RWN,PKTSSR ;REWIND NOT ACCEPTED 
062214 104456 TRAP CSERHRO 
062216 001215 .WORD 653 
062220 073604 .WORD  T26RWN 
062222 012136 “WORD PKTSSR 

6711 062224 30$: CKLOOP ;LOOP IF SELECTED 

ma 062224 104406 TRAP CSCLP1 | 

6713 { SSSSASASSSSASSSSSESSSSHSSHSESASSEEHSSSSESESSESSEESEEESESEEESHSESEEESEEES 

6714 3 

6715 ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) | 

6716 : 

6717 { SSSHSESSSSSSSSSSSS BLESSES EESSSSSEASSEHSESSSHHSESHSSSSSSSSSSSSESESESESESED 

6718 

6719 962226 013701 072150 MOV T26BFR+6,R1 sPICK UP XSTO 

6720 062232 010102 MOV R1,R2 ;SET UP EXPECTED 

6721 062234 052702 000002 BIS @BIT1,82 3SET BOT BIT IN EXPECTED 

6722 062240 020102 CMP R1,R2 sD0ES EXP = REC'D 

6723 062242 001406 BEQ 40$ ;8R, IF EQUAL (OK) 

6724 062244 005237 002212 INC FATFLG ; BUMP T 

6728 062250 ERRHRD ERRNO, T26B0T, EXPREC ;TAPE NOT AT BOT AFTER REWIND 
062250 104456 TRAP §CSERHROD 
062252 001216 .WORD 654 
062254 073315 .WORD  T26B80T 
062256 015564 “WORD EXPREC 

6729 062260 40: CKLOOP ;LOOP IF SELECTED 
062260 104406 TRAP =-« C$CLP1 

6730 062262 012703 000400 MOV 0256. ,R3 ;RECORD SIZE 

6731 062266 013737 003114 072252 MOV FREE, T26R8 ;STARTING WRITE BUFFER ADDRESS 

th ng { SSSSSSSSSSSSSSSSSSSSSSESSSSSSSSEESSSESSESSESSSSSEESSESSHSSSESESEESSEESEE 

6 ; 

6735 sMRITE DATA,CVC=1, ACK COMMAND 

2h s eeccceccscccccosescoconscsccoocssoscosssesesosoeecceseosseceeseeess 

6 

6739 062274 012737 140005 072250 MOV #140005, T26PK3 sWRITE DATA,CVC*1,ACK COMMAND 

6740 062302 012704 072250 MOV T26PK3,R4 ;SET UP R4 WITH PACKET ADORESS 

6741 062306 65%: 

6742 062306 010337 072256 MOV R3,726SZ ;SET UP RECORC SIZE IN PACKET 

6743 062312 010465 000000 MOV R4, TSOBC(RS) s ISSUE COMMAND 

6744 062316 004737 016340 JSR PC, WAITF ;WAIT FOR SSR TO SET 


6745 062322 016501 000002 MOV TSSR(RS).R1 sGET TSSR CONTENTS 
6746 062326 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 

6747 062332 020102 CMP R1,R2 sARE THEY EQUAL 

6746 062334 001406 BEQ 75% s8R, IF OK 

6749 062336 005237 002212 INC FATFLG sBUMP COUNT 

6753 062342 ERRHRD ERRNO, WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 


TSv? 
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104406 
012703 
613737 


013701 
010102 
02 





8 MACRO M1113 14-JUN-84 14:17 SEG 0231 
TRAP CSERHRD 
-WORD 655 
-WORD WRTERR 
-WORD PKTSSR 
75$: CKLOOP ;LOOP IF SELECTED 
TRAP CsCLPl 
001000 MOV #512. .R3 sRECORD SIZE 
003114 072252 MOV FREE , T26RB sSTARTING READ BUFFER ADDRESS 
{OCOCOOO SSE OEEESEEEEEEEEEESSEESEEEESEEESEEEEESEESEESESEEEEESEEEEEESS 
: 
sREREAD PREVIOUS, ACK ,CvC#1,0PP=1 
: 
j PCOS SSS eeeeSeeeeSeSESESseesessessesssseaeesesessesseseseseseeese 
161001 072250 MOV #161001, T26PK3 sREREAD PREVIOUS, ACK ,CvC=1,0PP=1 
072250 165%: MOV @T26PK3 ,R4 ;SET UP R& WITH PACKET ADORESS 
072256 MOV R3, T26SZ sSET UP RECORD SIZE IN PACKET 
000000 MOV R4, TSOBCRS ) ISSUE COMMAND 
016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 
000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
100204 MOV @SSR!SC!BIT2,R2 sSET UP EXPECT 
chr 1,R2 ;ARE THEY EQUAL 
BEQ 170% :BR, IF OK 
002212 INC FATFLG BUMP COUNT 
ERRHRD ERRNO, T26TRL .PKTSSR ;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRO 
-WORD 656 
-WORD T26TRL 
-WORD PKTSSR 
1708: CKL.OOP ;LOOP IF SELECTED 
TRAP CSCLPl 
jPCCOSS SSS SS SES SEESESESSSOSESEESESSEESEESESEEESEEEEEEEESEEESESESESES 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
jOCOSSseccreseseceseseessossesecesessessessssseessesseoessseseeeess 
072150 MOV T26BFR+6.R1 GET MESSAGE BUFFER 
MOV R1,R2 ;SET UWP EXPECTED 
040000 BIS @BIT14,R2 ;SET THE RLS BIT IN EXPECTED 
CHP R1,R2 SARE THEY EQUAL 
BEG 1806 :6R, IF ~~ oe ‘AL IS WELL) 
002212 INC FATFLG ;BUMP 
ERRHRD ERRNO, 126. 0P ,EXPREC + THE RLL eIT WAS NOT SET & xSTO 
CSERHRD 
TYORO 657 
. WORD 126. 0P 
.WORD  EXPREC 
160%: CKLOOP 
TRAP CsciPi 
072146 mov T26BFR-4,R1 sPICK UP RESIDUAL BYTE COUNTER 
000400 mov e256... ;THIS SHOULD BE THE DIFFERENCE 
cH R1,R2 i1IS THE DIFFERENCE CORRECT 
BEG 1906 ;8R, IF CORRECT 
002212 INC FATFLG ;BUPP COUNT 
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90100C 
003114 


072146 
00040C 


MACRO M1113 14-JUN-54 14:17 SEQ 0232 
ERRHRD ERRNO, '26PBP .EXPREC ;PBPCR NOT CORRECT 
TRAP CSERMRD 
-WORD 654 
_WORD 126P8P 
. JOR E XPREC 
190%:  CKLOOP ;.00P IF SELECTED 
"RAE CsCLPi 
"OV #512. .R3 ;RECORD SIZE 
072252 "Ov FREE , T26R8 : STARTING READ BUFFER ADDRESS 
{ CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS SSESSSSSSSSSSSSSSSSSSESSOSSSESEEEEE 
;REREAD PREVIOUL,. ACK, Cv¥C#1, OPP +0 
{ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSESSESSSSSSSSSSSSESSESESOE 
072250 "Ov #141001, T26°«5 ;REREAD PREVIOUS. ACK .CvC+1, OPP <0 
"Ov OT26PKS RE ;SET UWP R4 WITH PACKET ADORESS 
"Ov R3.126SZ ;SE’ W RECORD SIZE IN PACKE’ 
"Ov a4, TSOB( RS) 
JSR PC. WAITF ;WAIT FOR SSR TO SET 
"Ov TSSA(RS).R1 :GET TSSR CONTENTS 
"Ov @SSA'SC!BIT2.R2 ;SET W EXPECTED 
cr R1.R2 ;ARE THEY EQuA 
BES 2708 :BR,. IF Ox 
Inc FATFLG ;6R COUNT 
ERR ERRNO. T26TRL .PXTSSA ;7SSR INCORRECT AFTER READ DATA 
AS C8ER-ROD 
WORD «6659 
WORD =T26TAL 
WORD «= PK TSSR 
2708: Cx. OOF ;LOOP IF SELECTED 
"Rap Csc. Pi 
5 SSOSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSOSSSESEEEE 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
5 PSSSSSSSSSSSSSOSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSOSSSOSESOEE 
"Ov T26BFR-6 81 ;GET MESSAGE BUFFER 
"Ov R1 a2 ;SET W EXPECTED 
Bis @BIT14.a2 ;SET THE M&S BIT IN EXPECTED 
cor Ri .R2 ;ARE THEY EQUA 
8E9 26058 ;BR. IF EQum (Mi IS WELL) 
Inc FATFLG seve 
ERR ERRNO. 126. OF . EXPREC ;T™E ML BIT wAS NO’ SET IN KSTO 
Take CsERRD 
WORD 48660 
RD 12K 
.WORD «= EXPREC 
2608 - Cx. OOF 
Te ae CscL Pi 
"Ov T268F9.4 8) ;PICK W RESIOUA BYTE COUNTE® 
"Ov e256... sT™IS SHOULD BE THE CIFFERENCE 
cr R1.R2 :IS THE OIFFERENCE CORRECT 
BEG ews ;O8. IF COWRECT 
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TEST 6: REREADS 


6856 062700 ERRHRD ERRNO, '26PBP .E XPREC ;®BPCR NOT CORRECT 
062700 106456 TRAP CSERMRD 
062702 001224 . WORD 660 
062704 074574 . WORD T26PBP 
062706 015564 ORE EXPREC 
6857 062710 2908: CK. OOF sLO0P IF SELECTED 
062710 104406 TARE CSCLPi 
6858 062712 ENDSUB 7 >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
062712 L10110- 
062712 104403 TRAP Csesus 
6859 062714 023727 002212 000017 CMP Ana o15. ;IS ERROR COUNT AT 25 
6860 062722 103402 BLO ;8R, IF LESS THAN 25 
6861 062724 004737 017272 JSR Me eKDROP ;TRY TO DROP THE UNIT 
6862 062750 999%: 
6663 
6804 i* 
6865 8 
6866 ;TEST 6, SUBTEST 7 
6867 3 
6868 3 
6869 ;VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP-0 
6870 ;AND SWB-0 OPERATES PROPERLY. THE TAPE IS FIRST 
6671 sREWOUND AND THEN WRITTEN WITH A SERIES OF TEST 
6872 sRECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE 
6873 ;IS THEN REWOUND AGAIN. FOR EACH TEST REC a 
6874 ; TAPE IS SPACED FORWARD ONE AND A REREAD 
6875 ;NEXT I . RESULTS CSTATUS, DATA, 
6876 s;ETC.) ARE VERIFIED. THE BYTE COUNT RE 
6877 sNEXT COMMAND IS SET TO THE LENGTH OF THE EXPECTED 
ded sRECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 
; 
6880 3 
6881 8° 
6882 
6883 
6884 062730 BGNSUB 3 >>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
062730 76.7: 
062730 104402 TRAP CsBSU8 
6885 062732 004737 075040 JSR PC, T26REST ;SET COMMAND PACKET 
6886 062736 004737 075132 JSR PC, T26RT2) ;SET UP OTHER COMMAND PACKET 
6887 062742 004737 075174 JSR PC, T26RTS :SET UP OTHER COMMAND PACKET 
ooo PRORERSASREEKSEEAREEEHKRER HEHEHE EEEARHKAEAKERHEARESHESLERAKERAERAEEREH HAD 
7 
oooe s ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
4 
os J SSSSESSSSSSSSESESASSSESESSESSESHSSSSESAESESSESSSESKESEKEAKSEEESEEEEEEEEEEEEE 
6895 062746 004737 016064 JSR PC, SOF INIT 300 ht ON CONTROLLER 
6896 062752 103407 BcS 20% ;6R IF INIT S OK 
6897 062754 005237 002212 INC FATFLG ;BUMP COUNT 
6901 062760 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
6902 062762 ERROF ERRNO, SFIERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
062762 104455 CSEROF 
062764 001225 . WORD 1 
062766 003650 -WORD SFIERR 


062770 012124 -WORD SFIMSG 


~——- - a ee re Ee | Re me a ee — - - ee es + ee 


B3 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-64 14:17 SEQ 0234 
TEST 6: REREADS 

6903 062772 013737 002172 072140 20%: MOV UNITN, T260SW sSET UP UNIT NUMBER 

6904 

6905 063000 012704 072120 MOV OT26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


2 
6913 063004 004737 010752 
6915 063012 005237 002212 


6946 
6947 063070 013701 072150 
6948 063074 010102 

052702 


TWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


JSR PC ,WRTCHR s ISSUE WRITE CHARACTERISTICS 

BCS 26% sBR, IF COMMAND ISSUED OK 

INC FATFLG sBUMP T 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 662 
-WORD  WRTMSG 
-WORD SFIMSG 

26%: CKLOOP sLOOP IF SELECTED 


TRAP CsCLPi 
FOOCRSSSSESSEEAEESESSEEESEESEEHEEEESESEEEEHESOEESESESEEESEEEEESEOEE 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


; 
§ SSOOSSSSSSSHSSHSASSSSASSSSSSSSSSSHESHSSHSSEHSSSSSSSEHSSSSESEEESESEEEE 


JSR PC ,REWIND sCALL TAPE ay A COMMAND 

Bcs 308 sBR, IF NO PROBLEM 

MOV TSSARC(RS),R1 sGET TSSR 

MOV @SSR ,R2 3SET UP EXPECTED TSSR 

MOV RO,R4 ;PACKET ADORESS SET UP 

INC FATFLG 3;BUM® COUNT 

ERRHRD ERRNO, TO6RWN,PKTSSR ; REWIND NOT ACCEPTED 
TRAP CSERHRO 
-WORD 663 
-WORD T26RWN 
.WORD PKTSSR 

30%: CKLOOP _ gLOOP IF SELECTED 

TRAP CsCi.P1 


§ SSOSSHSSSSSSSSSSSHSSSSSSSSSSSESSSSESSSSHSSSHSSESEHSOSSSHHASHEHESSSEHEESE 


i 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


é 
§ SSSSESSSSSSSSSSSSSSHESSSSEHSSSSSSSESSHSSHSSSSSSSOHSSSSSSSSSHSSHLSSSEEOE 


MOV T26BFR+6,R1 sPICK UP XSTO 

MOV R1,R2 sSET UP EXPECTED 

BIS #BIT1,Re sSET BOT BIT IN EXPECTED 

CMP R1,R2 sO00ES EXP = REC'D 

BEQ 40% sBR, IF EQUAL (OK) 
FATFLG UMP COUNT 


INC ’ 

ERRHRD ERRNO, T2680T ,EXPREC 3 TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRO 
-WORD 664 





a 


TSV? - HARDWARE TESTS 1-28 MACRO M1113 14-JUN-84 14:17 SEQ 0235 
TEST 6: REREADS 
063116 073315 . WORD T2680T 
063120 015564 . WORD EXPREC 
6957 063122 40$ CKLOOP 3LOOP IF SELECTED 
063122 104406 TRAP CSCLPi 
6958 063124 012703 000400 MOV 6256. ,R3 sRECORD SIZE 
6959 063130 013737 003114 072252 MOV FREE , T26RB8 sSTARTING WRITE BUFFER ADDRESS 
6960 
6961 J OMOSEHAAAASASSHASHSSAAHEEHHASEESHEEOEOESESEOOEEEOHEORESEEOESASESES 
6962 8 
6964 3 
6965 FSPSHASSAASASASHSSHESSE AES SOEEEHSHSSESSHHESEHEHEEEESESOHESOOSESESESES 
6946 
6967 063136 012737 140005 072250 MOV #140005 , T26PK3S sWRITE DATA,CVC*1,ACK COMMAND 
6968 063144 012704 072250 MOV @T26PK3, sSET UP R4 WITH PACKET ADORESS 
6969 063150 65%: 
6970 063150 010300 MOV R3, sSET PATTERN IN CORRECT REGISTER 
6971 063152 004737 017512 JSR PC .FILLMEM sFILL MEMORY WITH RECORD SIZE 
6972 063156 010337 072256 MOV » T26S8Z sSET UP RECORD SIZE IN PACKET 
6973 063162 010465 MOV R4, TSOBC(RS) IS COMMAND 
6974 063166 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 
6975 063172 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
6976 063176 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 
6977 063202 020102 CMP R1,R2 sARE THEY E 
6976 063204 001406 BEQ § s6R, IF OK 
6979 063206 005237 002212 INC FATFLG sBUMP COUNT 
6983 063212 ERRHRD ERRNO, WRTERR ,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
063212 104456 TRAP CSERHRO 
063214 001231 . WORD 665 
063216 005111 . WORD WRTERR 
063220 012136 -.WORD PKTSSR 
69864 063222 758: CKLOOP 3LOOP IF SELECTED 
063222 1 TRAP CsCLPi 
6965 063224 005723 TST (R3)- sBUMP RECORD SIZE 
022703 000414 Crp #268. ,R3 sEND OF RECORD YET 
6987 063232 001346 BNE 65% 3BR, IF MORE RECORDS TO WRITE 
6988 063234 80%: CKLOOP 3LO0P IF SELECTED 
063234 104406 TRAP CSCLP1 
6989 063236 1208: 
6990 
ate} J SOSOSSSSHSSSSHAASSHSSHHSSSSSEESESSHOSHSHSSSESEEHESSSEESEEESEEESEOEESE 
3 
ate | sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
Hy 
meee PIT IIIT iii iii iii itiiiiitiiitiririiiiititiisiiiitiitiiititiiiiitt) 
6997 063236 004737 011104 JSR PC REWIND sCALL TAPE REWIND COMMAND 
6996 063242 103413 6cs 130% 36R, IF NO PROBLEM 
€999 063244 016501 000002 MOV TSSRCRS),R1 3GET TSSR 
7000 063250 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED Lge 
7001 06 010004 MOV RO,R4 sPACKET ADORESS SET UP 
7002 063256 005237 002212 INC FATFLG 3BUMP COUNT 
7006 063262 ERRHRD ERRNO, T26RWN,PKTSSR ; REWIND NOT ACCEPTED 
063262 104456 TRAP CSERHRO 
063264 001232 . WORD 
3266 073604 . WORD T26RWN 
063270 012136 .WORD PKTSSR 
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700? 063272 
063272 


7057 063414 
7058 063422 


SSS ee 


104406 


013701 
010102 


104406 
013703 
013737 


012737 
012704 


000400 


072302 
003114 


141401 


072250 


MACRO M1113 14-JUN 64 14:17 SEQ 9236 


072302 


072252 


072250 


130%: CKLOOP sLOOP IF SELECTED 
TRAP CSCLPi 


J SHSHHASSSHASSSSSSSSSASEHSHSHAASSEHHHSSESHSHEEEEHEHEKEEESHESHEEHEEHEEEE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


‘ 
J SSSSASSSHSSSSHSSSSSSHESSSSEHSSEHSSHEHHEEAESESESEEHEEHECEEEESEEEVESD 


MOV T26BFR+6,R1 sPICK UP XSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS @BIT1,R2 sSET BOT BIT IN EXPECTED 
CMP R1,R2 sD0ES EXP = REC'D 
BEQ 1403 sBR, IF EQUAL (OK) 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T2680T ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRO 
-WORD 667 
. WORD T2680T 
-WORD EXPREC 
140%: CKLOOP sLOOP IF SELECTED 
; TRAP CSCLPi 
MOV 0256. , T26RSZ sSTORE START RECORD SIZE 
BR 150% sSKIP THE SAPCE THIS TIME 
MiriiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiitiiiiiiiiiititiiiititiTttittt 
; 
sISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
:eiT 15 SETS DIRECTION - O=FORWARD 1 “REVERSE 
Se 
145%: MOV #1,R3 sSPACE ONE — PARAMETER 
JSR PC , SPACE CALL opt INE 
ecs 150% :8R, IF NO PROBLEM WITH SPACE COMMAND 
MOV TSSRCRS).R1 :;GET TSSR 
MOV @SSR ,R2 3SET UP EXPECTED TSSR 
MOV RO,R4 sPACKET ADORESS SET UP 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26SC ,EXPREC ;POSITION (SPACE RECORDS) FAILED 
TRAP CSERHRD 
-WORD 668 
. WORD T26SC 
-WORD EXPREC 
150%: CKLOOP 
TRAP CSCLP1l 
MOV T26RSZ,R3 sRECORD SIZE 
MOV FREE , T26R8 sSTARTING READ BUFFER ADDRESS 


sPOSOORESSSOSERESESEESESESSEESESSESEEEEEDEEEESEEDEREEEESDESEESEEEES 
H 

sREREREAD DATA,CVC*1,ACK COMMAND 
jSocsscccsooccoocosoooossoooncononscssoossoconssooeeosonsseooonsese 


MOV #141401 , T26PK3 sREREREAD DATA,CVC*1,ACK COMMAND 
165%: MOV @T26PK3 ,R4 sSET UP R4 WITH PACKET ADDRESS 
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010337 


072256 
000000 
016340 
000002 


002212 


003114 
000400 


002212 
072302 
000410 


002212 
017272 


000017 


F = 
ad 
MACRO M1113 14-JUN-84 14:17 SEQ 0237 
MOV R3,126SZ sSET UP RECORD SIZE IN PACKET 
MOV R4, TSOBCRS) s ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sGET TSSR ee 
MOV @SSR ,R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 1708 s6R, IF OK 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26WDC ,PKTSSR :TSSR INCORRECT AFTER cn ~ hogy 
TYORO he: 
«WORD T26WDC 
«WORD PKTSSR 
170%: CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 
MOV FREE ,R2 s CURRENT tunren ADDRESS TO R2 
MOV R3,R4 T RECORD SIZE 
SUB 256... iFIRST yt IN SUFFER 
173%: ADD R2,R4 sSET UP POINTER 
CMP (R4),R3 } CHECK DATA ay ——— ALSO) 
BEQ 180% sBR, a IS WEL 
MOV (R4),R1 yRECD DATA 
MOV R3, R2 sEXPECTED DATA 
INC FATF LG sBUMP COUNT 
ERRHRD ERRNO, T260TA,EXPREC sDATA READ NOT = WRITTEN 
TRAP CSERHRD 
-WORD 670 
«WORD T26DTA 
-WORD EXPREC 
180%: CKLOOP sLOOP IF SELECTED 
TRAP CSCLPi 
TST (R4)> sBUMP TO NEXT LOCATION 
SUB R2,R4 sCORRECT RECORDS SIZE VALUE 
CMP R4,R3 sEND OF RECORD YET 
BNE 173% s6R, IF NOT AT END OF RECORD 
TST (R3)« sBUMP RECORD SIZE 
MOV R3, T26RSZ sSTORE PRESENT RECORD SIZE 
CMP 0264. ,R3 sEND OF RECORD YET 
BNE 145% sBR, IF MORE RECORDS TO READ 
190%: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10111: 
TRAP CsESUB 
CMP FATFLG,@15. sIS ERROR COUNT AT 25 
BLO 999% 3BR, IF LESS THAN 25 
JSR PC ,CKDROP sTRY TO DROP THE UNIT 
999%: 


7° 
iTEST 6, SUBTEST 8 
{VERIFIES THAT THE REREAD NE 


NEXT COMMAND WITH OPP=0 


sAND SWB-1 eo ES PROPERLY. 
3 THE AS THAT USED IN SUBTEST 1, BUT IT IS 
{VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 


HE TEST SEQUENCE IS 


TSV7 - HARDWARE TESTS 1-8 
ADS 


TEST 6: RERE 


7159 063704 
7160 063710 


012124 
013737 


012704 


005054 
012124 
104406 


004737 
103413 


075040 
075132 
075174 


016064 
002212 


002172 
072120 


910752 
002212 


011104 


MACRO M1113 14-JUN-84 14:17 SEQ 0238 


072140 


;SWAPPED BYTES. 
; 
a 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>»>>>»> 
76.8: 


TRAP C$6SU8 
JSR PC, T26REST sSET COMMAND PACKET 
JSR PC, T26RT2 sSET UP OTHER COMMAND PACKET 
JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 
POCO rr rrrrrrrrrrrrrrriiriiriiriiiriiiitit iii tit. 
; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


a 
FSSSSASSSASHSSSHSSSHHSHASESESEHSHEHESEESESEARESESSEEESSSERSHEEHESEEEEEES 


JSR PC, SOF INIT s00 INITIALIZE ON CONTROLLER 

BCS 20$ sBR IF INIT WAS OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 671 
-WORD SFIERR 

SF IMSG 


208: MOV UNITN, T260SW ;SET UP UNIT NUMBER 
MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
j POS ASMAOHESEEREDSEEESEEEEDEESEEDESEESEEEESOESEEEEEDESEESEEEEESESES 


; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
J SSSSSSSSSSSSSSSHSSSSSSSHSSSASSSSESSASSSSESSSSSSSHSSSSHESHHKSSEEKEEEEEE 


JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 

BCS 26% BR, OMMAND ISSUED OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO, WRITMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
TRAP C$#~RHRD 
-WORD 672 
-WORD WRTMSG 
WORD SFIMSG 


26%: CKLOOP sLOOP IF SELECTED 


sPCSSESEOSSSESSESESEESSSSSSEEDEEDEESERESEEESEESEDEESEESEDEEESEETESE 
; 

sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
jOeecsoccscssooooscoooocsoooscssosescoocccssacceseosesoeesseesceses 


JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
BCS 30$ sBR, IF NO PROBLEM 





7161 063712 
7162 063716 
7163 063722 


013701 
010102 


104406 
012703 
013737 





TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 


000002 
000200 


002212 


000400 
003114 


002212 


MACRO M1113 14-JUN-84 14:17 . 


MOV TSSRCRS),R1 
MOV or 


2R4 
INC FATFLG 
ERRNO, T26RWN ,PKTSSR 


308: CKLOOP 


J SHSHHSSHHSHSSASSSHHSHEHASSHHSSSSSESHEASEEEHHEEEEHEEHEESEEESESEEEEHEEEEEE 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
J SSSHASSSSAHSSHSAHSSHSHSHSSHSSEKESSHSSHEESESSHEEHSHHSESSHHESSEEEEEEOEEE 


MOV Ri, 
BIS #BIT1,R2 
MP Ri, 
BEQ 40% 
INC FATFLG 
ERRHRD ERRNO, T26B0T ,EXPREC 


40$: CKLOOP 


MOV #256. .R3 
072252 MOV FREE , T26RB 


SEQ 0239 
;GET TSSR 
sSET UP EXPECTED TSSR 
sPACKET ADDRESS SET UP 
sBUMP COUNT 
sREWIND NOT ACCEPTED 
TRAP CSERHROD 
. WORD 673 
. WORD T26RWN 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP xSTO 
sSET UP EXPECTED 
3SET BOT BIT IW EXPECTED 
sD0ES EXP = REC'C 
sB8R, IF EQUAL (0K) 
;BUMP OUNT 
TAPE NOT AT BOT AFTER — 
CSERHROD 
TMORO 674 
-WORD T26B80T 
-WORD EXPREC 


;LOOP iF SELECTED 
TRAP CSCLP1 
sRE 


CORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


F SSSHESSSSSHSSSASSSSSSSSSSHSSHESHHSHESASHSESESESHHEHESESESAOSHEASEEEEAS 


;WRITE DATA,CVC=1,ACK,SWB COMMAND 


4 
F SSSSSSHSSHESSESSSSSSSESSSSSHSSHSSASSESSHESEHSSESHSSHESEEEHESEEEEHESEEEEESE 


072250 MOV #150005 , T26PK3 

MOV @T26PK3 ,R4 
65%: 

MOV »RO 
JSR PC .FILLMEM 
MOV 3,7T26SZ 
MOV R4, TSOB(RS) 
JSR PC ,WAITF 
MOV TSSRCRS),R1 
MOV @SSR ,R2 
CMP R1,R2 
BEQ 75% 


NC FATFLG 
ERRHRD ERRNO, WRTERR ,PKTSSR 


sWRITE DATA,CVC=1,ACK,SWB COMMAND 
sSET UP R4 WITH PACKET ADDRESS 


sSET PATTERN IN CORRECT REGISTER 

sFILL MEMORY WITH RECORD SIZE 

sSET UP RECORD SIZE IN PACKET 
OMMAND 


sISSUE C 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 


sARE THEY 
sBR, IF OK 
sBUMP COUNT 
sTSSR INCORRECT AFTER ag DATA 
CSERHRD 
"WORD 675 
. WORD ORTERR 


TSV7 - HAROWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 0240 
TEST 6: REREADS 
064072 012136 -WORD PKTSSR 
7214 064074 758: CKLOOP sLOOP IF SELECTED | 
064074 104406 TRAP CSCLP1 | 
7215 064076 005723 TST (R3)-> sBUMP RECORD SIZE 
7216 064100 022703 000414 CMP 0268. ,R3 sEND OF RECORD YET 
7217 064104 001346 BNE 65% sBR, IF MORE RECORDS TO WRITE 
7218 064106 80$: CKLOOP sLOOP IF SELECTED | 
064106 104406 TRAP C$CLPi | 
+530 064110 1208: | 
2 } 
7221 FORASAHAHASEHAEAEASEHAEEESEEEEEEEESEESEEEEEESEEEDREOEDREROEERERESEEESES j 
7222 H 
7223 sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE | 
7224 H 
7225 FERAOAHAOAESEAESREAEAESEAESESASEERERESHEEHERRESEEEEREEEREDESEEEESEEE 
7226 
7227 064110 004737 011104 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
7228 064114 103413 BCS 130$ ;6R, IF NO PROBLEM 
7229 064116 016501 000002 MOV TSSRCRS),R1 3sGET T 
7230 064122 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED TSSR 
7231 064126 010004 MOV RO,R4 sPACKET ADORESS SET UP 
7232 064130 005237 002212 INC FATFLG sBUMP COUNT 
7236 064134 ERRHRD ERRNO, T26RWN,PKTSSR ; REWIND NOT ACCEPTED 
064134 104456 TRAP CSERHRD 
064136 001244 -WORD 676 
064140 073604 - WORD T 
064142 012136 a PKTSSR 
7237 064144 1308: CKLOOP ;LOOP IF SELECTED 
7238 064144 104406 TRAP CsCLP1 
7239 irri ir iti irri iti ititiiiitiiitititiiititiiiitiitititiiititiiititt tT 
7240 F 
oe sREAD MESSMGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
3 
ones fF SREAEAAASEEEESEASESESSSEEESEEEEESEEEEEEESEEESEESEEESESEEESESOEEEEEEES 
44 
7245S 064146 013701 072150 MOV T26BFR+6,R1 sPICK UP XSTO 
7246 064152 010102 MOV R1,R2 sSET UP EXPECTED 
7247 064154 052702 000002 BIS BIT1,R2 }SET BOT BIT IN EXPECTED 
7248 064160 020102 CMP R1,R2 sD0ES EXP = REC'D 
7249 064162 001406 BEQ res 3BR, IF EQUAL (OK) 
7250 064164 005237 002212 INC FATF sBUMP T 
7254 064170 ERRHRD ERRNO. T26B0T , EXPREC ;TAPE NOT AT BOT AFTER REWIND 
064170 104456 TRAP CSERHRD 
064172 001245 WORD 677 
064174 073315 WORD T2680T 
064176 01 -WORD EXPREC 
7255 064200 140$: CKLOOP sLOOP IF SELECTED 
064200 104406 TRAP CSCLP1 
7256 064202 012737 000400 072302 MOV $256. , T26RSZ sSTART RECORD SIZE | 
Lod 064210 000420 BR 150% ;SKIP SAPCE THIS TIME | 
7259 ‘ERROR ate imnemnen: 
7260 
7261 ; ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
a 3 s61T 15 SETS DIRECTION - O=FORWARD 1*REVERSE | 


| 
| 


TSV7 - eae TESTS 1-8 


TEST 6: REREAD 


7314 064376 
064376 
064400 


064402 
064404 
7315 064406 


012703 
7 


104406 
013703 
013737 


002212 


072302 
003114 


151401 


003114 


002212 


| B.. 


MACRO M1113 14-JUN-84 14:17 SEQ 0241 


072252 


072250 


FESSHSHSSSSSSSHASHEAAEHAEHSESEHEEEEHEHEEESEEEEHEEEESEHEESEEEEEEEEEEEEORES 


145$: MOV #1,R3 sSPACE ONE RECORD PARAMETER 

JSR PC, SPACE sCALL SPACE ROUTINE 

BCS 1508 s8R, IF NO PROBLEM WITH SPACE COMMAND 

MOV TSSRCRS),R1 sGET TSSR | 

MOV @SSR ,R2 sSET UP EXPECTED TSSR ' 

MOV ne Ra sPACKET ADDRESS SET UP 

INC FLG sBUMP COUNT 

ERRHRD ERRNO. T26SC ,EXPREC sPOSITION (SPACE RECORDS) FAILED 
TRAP CSERHRD | 
-WORD 678 
-WORD T26SC 


.WORD  EXPREC 
150$:  CKLOOP 
TRAP = CSCLP 1 


MOV —s- T26RSZ,R3 sRECORD SIZE 
MOV _—s- FREE, T26RB ;STARTING READ BUFFER ADORESS | 
{ 


J SSSHSSSSSESHSSSESSSSESASSSSASAESEASSHSESEASSEHESESEEESEESEHSEESEEEEEDE 


;REREAD DATA, ACK,CvC=1,SWB COMMAND 


6 
F SSSSHSSSSHESSSSSSSSSSHSSSASSEHEEEEHEEEEESEASSESSESESKESSEEESEKSEEEEEEE 


160%: CKLOCP ;LOOP IF SELECTED 


| 
i 
MOV #151401, T26PK3 sREREAD DATA, a CvC=1,.SWB COMMAND 
165%: MOV @T26PK3 ,R4 SET UP R4 WITH PACKET ADDRESS 
MOV R3, T26SZ 1SET UP RECORD SIZE IN PACKET 
MOV R4, TSOBCRS) s ISSUE COMMAND 
JSR »WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sGET TSSR CONTENTS 
MOV @SSR ,R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 170% sR, IF oe 
INC FATFLG sBUMP COUN 
ERRHRD ERRNO, T26WOC ,PKTSSR ;TSSR INCORRECT AFTER ss ~ foe ™ 
THORO 679 
-WORD T26WDC 
WORD PKTSSR 
170%: CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 
MOV FREE ,R2 sCURRENT BUFFER ADORESS TO R2 
MOV R3,R4 sCURRENT RECORD SIZE 
SUB 256. ,R4 sFIRST LOCATION IN BUFFER 
173%: ADO R2,R4 sSET UP POINTER 
CMP (R4),R3 sCHECK DATA READ (R3=DATA ALSO) 
BEQ 180% sBR, IF ALL IS WELL 
MOV (R4),R1 sRECD DATA 
MOV R3,R2 sEXPECTED DATA 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26DTA,EXPREC ;DATA READ NOT = WRITTEN 
TRAP CSERHRD 
WORD T26DTA 
WORD EXPREC 


TSV7 - HARDWARE 


TESTS 1-8 


TEST 6: REREADS 


010337 072302 
022703 000410 


104403 
023727 002212 
004737 017272 


104402 
004737 075040 
005037 072276 


000017 


J4 


MACRO M1113 14-JUN-84 14:17 SEQ 0242 
TRAP CSCLPl1 
TST (R4)>+ ;BUMP TO NEXT LOCATION 
SUB R2,R4 ;CORRECT ae oe _ VALUE 
CMP R4,R3 sENO OF RECORD Y 
BNE 173$ 38R, IF NOT AT Mas OF RECORD 
TST (R3)-+ ;BUMP RECORD SIZE 
MOV R3, T26RSZ sSTORE RECORD SIZE 
CMP 6264. ,R3 sEND OF RECORD YET 
BNE 145$ 3BR, IF MORE RECORDS TO WRITE 
190$: CKLOOP ;LOOP IF SELECTED 
TRAP CsCLP1l 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10112: 
TRAP CSESUB 
CMP FATFLG,@15. sIS ERROR COUNT AT 25 
BLO 999% ;BR, IF LESS THAN 25 
JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
9995: 
;TEST 6, SUBTEST 9 
3 
sVERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=1 
OPE tus» SPACE REVERSE) AND SWB=0 OPERATES 
THE TAPE IS FIRST REWOUND AND THEN WRITTEN 
IMI 1H A SERIES OF TEST RECORDS VARYING IN LENGTH AND 
;DATA CONTENT; THE FIRST FOUR BYTES OF EACH RECORD 
:CONTAIN ITS RECORD NUMBER CINDICATING POSITION ON 
;TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH 
;TEST RECORD, THE FOLLOWING SEQUENCE 1S EXECUTED. 
3 
31. THE REREAD NEXT COMMAND WITH OPP=1 IS ISSUED 
: AND THE RESULTS CHECKED 
3 
ie. A READ FORWARD COMMAND IS THEN ISSUED AND THE 
3 DATA IS CHECKED TO VERIFY THAT THE TAPE WAS 
$ POSITIONED PROPERLY AFTER THE REREAD NEXT 
$ OMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
$ POSITIONED AT THE START OF THE TEST RECORD). THE 
H READ FORWARD COMMAND LEAVES THE TAPE POSITIONED 
H PROPERLY AT THE START OF THE NEXT TEST RECORD. 
é 
;THE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET 
;TO0 THE LENGTH OF THE EXPECTED RECORD, SO NO 
sEXCEPTIONAL CONDITIONS SHOULD OCCUR. 
Q 
H 
BGNSUB ;>>>>>>>>2>>> BEGIN SUBTEST >>>>>>>>>>>> 
76.9: 
TRAP C$B8SUB 
JSR PC, T26REST ;SET COMMAND PACKET 
CLR T26CNT ;CLEAR TAPE RECORD COUNTER 





TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 


7367 064466 
7368 064472 


004737 
004737 


012124 
013737 


012704 


075132 
075174 


016064 
002212 


002172 
072120 


010752 
002212 


K3 


MACRO M1113 14-JUN-84 14:17 SEQ 0243 
JSR PC, T26RT2 sSET UP OTHER COMMAND PACKET 
JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 
jPOROROEEEE REESE EEEREREREREERERESEERESEEEERERSEESERREEERERESEEEE ES 
; 
; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
WITTITITITITITITT TTT ITT TITTLE T Tee 
JSR PC, SOF INIT 3:00 INITIALIZE ON CONTROLLER 
BCS 20$ sBR IF INIT WAS OK 
INC FATFLG :BUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 681 
-WORD SFIERR 
-WORD SFIMSG 
072140 208: MOV UNITN, T260SW ;SET UP UNIT NUMBER 
MOV @T26PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
[POSSESS ERERESESESESEESESESEEEESESESESEESESEESESEEESEEEESESESEES 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
WITTTITITITITITTTTTTT TTT TTL 
JSR PC ,WRTCHR s ISSUE WRITE CHARACTERISTICS 
BCS 26% 3BR, IF COMMAND ISSUED OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 682 
-WORD WRTMSG 
WORD SFIMSG 
268: CKLOOP ;LOOP IF SELECTED 
TRAP CsCLP1 
j PROCESSES SESESESESESEEESSED4O* COEEEEEEEEDEEEERESESEEEEEESESEESEEES 
; 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
ETT TTT STOTT TTT TTT TTT TTTTTTTTTTTTTTTTTTTT TTT TTT TTT TTT TTT 
JSR PC ,REWIND sCALiL TAPE REWIND COMMAND 
BCS 30% s8R, IF NO PROBLEM 
MOV TSSRCRS),R1 ;GET TSSR 
MOV @SSR ,R2 3SET UP EXPECTED TSSR 
MOV RO,R4 sPACKET ADDRESS SET UP 
BUMP COUN 


INC FATFLG ’ T 
ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 





TSV7 - HARDWARE TESTS 1-8 
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7420 


064616 
064616 


104406 


013701 
010102 


104406 
012703 
013737 


012737 
012704 


010337 
013777 


000400 
003114 


000414 


072276 


MACRO M1113 14-JUN-84 14:17 SEQ 0244 


072252 


072250 


116202 
072276 


30%: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLPl 


J SSSSSSHSSHSSSSSSSSSESSAHSSSHSHSHSHSSHSSSSHSESESSSESSHSEEHESEEEHSEHESESESESE 


:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


‘ 
{ SSSSSSSSSSSSSSSSSSSSSSHSSHESASESSSEHSSESHSSSSSSSEESESESESSESESESSESEEEEHE 


MOV T26BFR+6,R1 sPICK UP XSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS siti, R2 sSET re 6IT IN EXPECTED 
R1,R2 sOD0ES EXP = REC'D 
BEQ 408 sBR, IF XEQUAL (OK ) 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T2680T .EXPREC TAPE NOT AT BOT AFTER "y 
TRAP CSERHROD 
-WORD 684 
-WORD T26B80T 
-WORD EXPREC 
40$: CKLOOP sLOOP IF SELECTED 
TRAP CsCLPi 
MOV @256. ,RS sREC 


ORD SIZE 
MOV FREE , T26R6 s;STARTING WRITE BUFFER ADDRESS 
j POROEESSSSEEESEERESSSEEEESEEEEESEESEEEESSDELEEEEEEEEESESEDEEEESESE 


;WRITE DATA,CvC=1,ACK COMMAND 


. 
J SSSSSSSSSSSSSSSSSSSSHSSSSSSSSSSSSSSSSSSSSSSHESSHSSSSHSSSSESSEHSESESSS 


MOV #140005 , T26PK3 sWRITE DATA,CVC=1,ACK COMMAND 
5 MOV @T26PK3 ,R4 ;SET UP R4 WITH PACKET ADDRESS 
65%: 
MOV R3, 72687 sSET UP RECORD SIZE IN PACKET 
MOV T26CNT . SFREE sMOVE TAPE RECORD NUMBER TO BUFFER 
ADO #1, T26CNT sNUMBER READY FOR NEXT RECORD 
MOV R4, TSOBC(RS) s ISSUE COMMAND 
JSR » WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
MOV @SSR .R2 ;SET UP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 75% ;BR, IF OK 
INC FATFLG ;BUNP COUNT 
ERRHRD ERRNO, WRTERR,PKTSSR ;TSSR INCORRECT AFTER =< DATA CoEmen 
TMORO 685 
. WORD WRTERR 
. WORD PKTSSR 
75%: CKLOOP ;LO00P IF SELECTED 
TRAP CSCLPi 
TST (R3)- ;BUMP THE RECORD SIZE 
chp 0268. .R3 sMAXIMUM SIZE YET 
BEQ 120% ;6R, IF AT END OF WRITE SEQUENCE 
20 BR 65% ;WRITE MORE RECORDS 
1208: 
CLR T26CNT ;SET RECORD COUNTER BACK TO ZERO 





TSv7 


TEST 6: 


7472 
7475 
7474 


Az 


HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEG 0245 


RERE ADS 


065032 015701 072150 


08406 
065066 012737 000600 072302 
000420 


ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


. 
{ SOSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSESESSESSSSSESSEEESSESESEEEEEEES 


JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
ecs 1308 :8R, IF NO PROBLEM 
“OV TSSACRS), Ri :;GET TSSR 
MOV ROR ;PACKET ADORESS SET LP 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
; TRAP CSERHMRD 
. WORD 
-WORD T26RWN 
.WORD  PKTSSR 
130s: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLPi 
j COOCCOS DOSS eeeeeeSeSeSSSSSSSESSSSSESSSSSSsesssesesessseeeesesooees 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
j OO CCOSeeSeSeeSeSSSessesSSeaSeSSSSseSSSssesSSesesesssesseseesoerecs 
MOV T26BFR-6.R1 PICK WP XSTO 
MOV R1.R2 :SET WP EXPECTED 
BIS e6IT1.R2 :SET BOT BIT IN EXPECTED 
cup Ri .R2 ;D0ES EXP = REC'D 
BEG 135s OR, IF EQUA (OK) 
INC FATFLG ;8UeP COUNT 
ERRHRD ERRNO, 126807 .E xXPREC ; TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHROD 
.wORD 667 
-WORD T26B80T 
.WORD  EXPREC 
135s: CKLOOP LOOP IF SELECTED 
TRAP Cesc. Pi 
"Ov 0256 . . T26RSZ :STARTING RECORD SIZE 
Ba 1408 ;SKIP OVER THE SAPCE THIS TIME 
j POOCOCCOSO SEE SESSEOEEOSOSSESESESSOSEESSSSSESESEOSESESESESEEEESEEES 
; ISSUE SPACE RECORDS COPPIAND - VALUE IN RS SETS NUMBER OF RECORDS 
;BIT 15 SETS DIRECTION - O-F ORWARD 1 RE VERSE 
| POCCCOOSOCEESOOSEEEESSSOOSESSSESEEESESESESEOESSEEEEESSESEOSEEEEESS 
132s: Ov #000001 .R3 SET UP SPACE COPPIAND (1 FORWARD) 
JSR PC. PACE SCALL SPACE ROUTINE 
ecs 1406 :;08. IF NO TROUBLE 
"Ov TSSAC RAS) .AL GET TSSR 
"Ov @SSR RZ :SET W EXPECTED SSR 
"Ov RO ,R4 PACKET ADORESS SET 
Inc FATFLG ;898 COUNT 
ERRHRD ERRNO. T26SC.PKTSSA SPACE (FORWARD) FAILED 





SEG 0246 
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TES’ 6: REREADS 

065126 104456 TRAP CSERHRD 
065130 001260 . WORD 684 
065132 ¢72717 . WORD T26SC 
065134 912136 . ORD PK TSSR 

7528 065136 1403: CxLOOP ;LO0P IF SELECTED 
065136 104406 TRAP CSCLPi 

7329 065140 013703 072302 MOV T26RSZ,.R3 sRECORD SIZE 

7530 065144 013737 003114 072252 1503: MOV FREE , T26R6 ;STARTING READ BUFFER ADDRESS 

7531 

7532 { SOSSCOSSSSESSESSSESEEOSESESSSEEEOEEEEESESEESEEEESESEEEESEEEESEEEESESE 

7533 3 

7534 sREREAD DATA,CVC=1,ACK, OPP COMMAND 

7535 3 

7536 f SCCOSSESSSESESSSESESSEHSSESEEESSEEESEHSEEEEESEEEEESSHESEESEEEESEEEE 

7537 

7538 065152 012737 161401 072250 MOV #161401, T26PK3 sREREAD DATA,CVC-1,ACK. OPP COMMAND 

7539 065160 012704 072250 1655: “OV @T26PKS RO ;SET UWP R4 WITH PACKET ADORESS 

7540 065164 010337 072256 MOV R3, 72682 ;SET UWP RECORD SIZE IN PACKET 

7541 065170 010465 MOV R4, TSOBC RS) : ISSUE COMMAND 

7542 065174 004757 016340 JSR WAITF ;WAIT FOR SSR TO SET 

7543 S200 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

7544 065204 012702 000200 MOV SR ,R2 ;SET UP EXPECTED 

7545 065210 020102 CMP R1,R2 ;ARE THEY EQUAL 

7546 065212 001406 BEG 170% ;BR, IF . 

7547 065214 005237 002212 INC FATFLG ;BUMP COUN 

7551 5220 ERRHRD » T26RRF ,PKTSSR :TSSR TMCORRECT AFTER a DATA 
065220 104456 CSERHRD 
065222 001261 689 
065224 072525 T 
065226 012134 WORD PKTSSR 

7552 065230 170$: CKLOOP ;LOOP IF SELECTED 
065230 TRAP — 

7553 065232 017701 115656 MOV @FREE ,R1 sFIRST WORD FROM READ BUFFE 

7554 065236 013702 072276 MOV T26CNT, Re ;SET UP EXPECTED 

7555 065242 020102 CMP Ri, ;IS TAPE POSITION CORRECT 

7536 5244 001406 BEQ 190% sKEEP GOING POSITION OK 

7557 065246 005237 002212 INC FATFLG ;BUMP COUNT 

7361 065252 ERRHRD ERRNO, T26WNG, EXPREC TAPE POSITION INCORRECT 
065252 104456 TRAP CSERHRD 
065254 001262 . WORD 690 
665256 072306 . WORD T26WNG 
065260 015564 . WORD EXPREC 

7562 065262 190$ CKLOOP 
065262 1 TRAP CSCLP1 

7563 065264 062737 000001 072276 ADD #1, T26CNT sBUMP TAPE RECORD COUNTER 

7564 065272 005723 TST R3)+ sNEXT RECORD SIZE 

7565 065274 010337 072302 MOV R3, T26RSZ sSTORE RECORD SIZE 

7566 065300 703 000412 CMP $266. ,R3 sAT MAX SIZE YET 

7567 065304 001402 BEQ 200% ;BR, IF AT ENC OF THE SUBTEST 

7568 065306 000137 065076 JMP 132$ ;KEEP GOING MORE RECORDS 

7569 065312 200$: 

7570 065312 ENDSUB 3 >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
0653 L10113: 
065312 104403 TRAP Csesus 

7571 065314 023727 002212 000017 CMP FATFLG,@15. :IS ERROR COUNT AT 25 

7572 065322 103402 BLO 999$ ;BR, IF LESS 1 HAN 25 

7573 065324 004737 017272 JSR PC, CKDROP ;TRY TO OROP THE UNIT 


TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 


.t dang 065330 


013737 
012704 


016064 
002212 


002172 
072120 


010752 
002212 


MACRO M1115 14-JUN-84 14:17 


072140 


999%: 

3° 

3 

sTEST 6, SUBTEST 10 


VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP+1 
sAND SWB*1 a oo PROPERLY. THE TEST SEQUENCE IS 


SEQ 0247 


;THE SAME THAT IS USED IN SUBTEST 3, BUT IT IS 
sVERIFIED THAT basen STORED BY THE COMMAND CONTAINS 
sSWAPPED BYTES 
2 
3 
a 
. 
:- 
BGNSUB 3>>>>>>2>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
76.10: 
TRAP €$8SU8 
JSR PC, T26REST sSET COMMAND PACKET 
CLR V2SENT ;CLEAR TAPE cat bien COUNTER 
JSR PC, T26RT2 sSET UP OTHER COMMAND PACKET 
JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 
JOCASSSSSSSSSSSSHSSHSSSSSSSSSSHSSSSHSSSHESHESSSEHESESSESESEEESEEEEESE 
3 
sISSUE CONTROLLER “SOFT“ INITIALIZE - CARRY BIT CLEAR IF ERROR 
 SeUAeanennenaaenneeRRsNNnReNNEReesnedbenbensennenatbasenne 
JSR PC, SOF INIT 300 oP petnee a CONTROLLER 
6CcS 20% 36R IF INIT S OK 
INC FATFLG sBUMP —_- 
MOV RO,R1 ; CONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 691 
-WORD SFIERR 
-WORD SFIMSG 
208: MOV UNITN, T260SW sSET UF UNIT NUMBER 
MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 


3 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


‘ 
§ SSSOSSSSSSSHESSSSSSOSSSSOSSSSSSSSSSSSSSSSSOSSSESSSSSHHHSHHHSSESEEEE 


JSR PC ,.WRTCHR sISSUE WRITE CHARACTERISTICS 
BcsS 26% sB8R, IF COMMAND ISSUED OK 
INC FATFLG sBUMP COUNT 


sSAVE CONTENTS OF TSSR 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC a 





CSERHRD 
692 


Ca 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 0248 
TEST 6: REREADS 

065430 005054 -WORD WRIMSG 
0654 012124 . WORD SF IMSG 

7629 065434 268: CKLOOP sLOOP IF SELECTED 

- 065434 104406 TRAP CSCLPl 

76 

7631 § SSHSSASSSSSSSSHESSSSSHHSSSSHSHHESHHEASSEHEKESEESSEHESSEESESHHEASCEEEEEE 

7632 3 

7633 sISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 

7634 

7635  neeenuanennensnninuneneshennntneesenenebbenebsouteeneesenses 

7636 

7637 065436 004737 011104 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
065442 016501 000002 MOV TSSR(RS),R1 3;GET TSSR 

7639 065446 012702 000200 MOV @SSR Re sSET UP EXPECTED TSSR 

7640 065452 103407 6cs 30% 36R, IF NO PROBLEM 

7641 065454 010004 MOV RO,R4 sPACKET ADORESS SET UP 

7642 065456 005237 002212 INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 

065462 104456 TRAP CSERHRD 
065464 001265 -WORD 693 
065466 073604 . WORD T 
065470 012136 -.WORD PKTSSR 

7647 065472 30%: CKLOOP sLOOP IF SELECTED 

— 065472 104406 TRAP CSCLP1 

er J SSSHSHSSSSSSSNSSSHSSSSSSSSHASSSSSSSSSSSSSSHSHSHHSSHSSSSSHSSEEESEEESEEE 

6 3 

aes sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 

A s Sa dnennenetbsendsennmnnsnnenenneineniniiibeEednnneaeenenes 

6 

7655 065474 0137%i 072150 MOV T26BFR-6,R1 sPICK UP XSTO 

7656 065500 010l1Ue R1,R2 3SET UP EXPECTED 

7657 065502 052702 000002 BIS @BIT1,R2 3SET BOT BIT IN EXPECTED 

7658 065506 020102 R1,R2 sD0ES EXP = REC'D 

7659 065510 001406 BEQ 40% s8R, IF EQUAL (0K) 

7660 065512 005237 002212 INC FATFLG 3 T 

7664 065516 ERRHRD ERRNO, T2680T ,EXPREC ;TAPE NOT AT SOT AFTER REWIND 
065516 104456 TRAP CSERHRD 

S520 00 -WORD 694 

065522 073315 . WORD T2680T 
065524 015564 -WORD EXPREC 

7665 065526 408: CKLOOP :LOOP IF SELECTED 
065 104406 TRAP CSCLP1 

7666 065530 012703 000400 MOV $256. ,R3 sRECOROD SIZE 

ted 065534 013737 003114 072252 MOV FREE , T26RB8 sSTARTING WRITE BUFFER ADORESS 

ag FSSOSSSNSSSSSHSESSSSSOSOSSSSESSSSSHSHSOESSESESSESSHESESESSSSSEHSESSESEEEES 

670 Fy 

ade | sWRITE DATA,CVC*1,ACK COMMAND 

sors _ Sennen nanan abe einenanel 

674 

7675 065542 012737 140005 072250 MOV #140005 , T26PK=2 sWRITE DATA,CVC=1,ACK COMMAND 

7676 065550 012704 072250 nov @T26PK3 ,R4 3SET UP R4 WITH PACKET ADDRESS 

7677 065554 65%: 

7678 065554 010337 072256 MOV R3,726SZ sSET UP RECORD SIZE IN PACKET 


SE ye 


4h 





TSV7 - HARDWARE TESTS 1-8 MACRO M111" 14-JUN-84 14:17 SEQ 0249 
TEST 6: REREADS 
7679 065560 013777 072276 115326 MOV T26CNT , FREE sMOVE TAPE RECORD NUMBER TO BUFFER 
7680 065566 062737 000001 072276 add #1, T26CNT sNUMBER "EADY FOR NEXT RECORD 
7681 065574 010465 000000 MOV R4, TSOBCRS) s ISSUE COMMAND 
7662 065600 004737 016340 JSR PC ,WAITF sWAIT FOR SSR 70 SET 
7683 065604 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
7684 065610 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 
7685 065614 020102 CMP R1i,R2 sARE THEY EQUAL 
7686 065616 001406 BEQ 75 sBR, IF OK 
7687 065620 005237 002212 INC FATFLG sBUMP COUNT 
7691 065624 ERRHRD ERRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
06 104456 TRAP CSERHRD 
001267 -WORD 695 
065630 005111 -WORD WRTERR 
0656. 012136 -WORD PKTSSR 
7692 065634 75%: CKLOOP sLOOP IF SELECTED 
0656 1 TRAP CSCiPi 
7693 065636 005723 TST (R3)> sBUMP THE RECORD SIZE 
7694 065640 022703 000414 CMP 0268. ,R3 sMAXIMUM SIZE YET 
7695 065644 001401 BEQ 120% 3BR, IF AT END OF WRITE SEQUENCE 
7696 06: 000742 65% sWRITE MORE RECORDS 
7697 065650 120%: 
sted 065650 005637 072276 CLR T26CNT sSET RECORD COUNTER BACK TO ZERO 
7700 SSPHSAHSASSHSASSSSSHEAHSSHSSESSAESEEEEHEHESHHESSEESSSSEHEESHESSESEEE 
7701 ; 
Mh sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
3 
7704  SOHSOSHEASSHOSESESEESHEHSSHEESEESHEEHESEEHEHESOSEOSEEEOEEEEEEESESE 
7705 
7706 065654 004737 011104 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
7707 065660 103411 BCS 1308 :6R, v NO PROBLEM 
7708 065662 016501 000002 MOV + ete sGET T 
7709 065666 01 MOV sPACKET — SET UP 
7710 065670 005237 002212 INC PATFLG sbUeP 
7714 065674 ERRHRD ERRNO, T26RWN,PKTSSR ; REWIND NOT ACCEPTED 
065674 1044 TRAP CSERHRD 
065676 001270 -WORD 696 
065700 073604 . WORD T 
0657 012136 -WORD PKTSSR 
7715 065704 130%: CKLOOP sLOOP IF SELECTED 
_— 0657 104406 TRAP CSCLP1 
At S COHOSHSESSSHSSEHSHSHESHSSEHEEESSSOHSSHEHSHOEEOEESEEESESEESESEEEEEE 
1 8 
At 2 READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
é 
ores § CRSSSOAHESESESESEOESSESESESEEEEEESESASHSESEHEHEEOSEESEEEEOEEEEEEEEE 
7723 065706 013701 072150 MOV T26BFR+6,R1 sPICK UP XSTO 
7724 065712 010102 MOV Ri, sSET UP EXPECTED 
7725 065714 052702 000002 BIS #6IT1,R2 1SET BOT BIT IN EXPECTED 
7726 065720 020102 CéP R1,R2 sD0ES EXP = REC'D 
7727 065722 001406 BEQ poe sBR, IF EQUAL (OK) 
7728 065724 005237 002212 INC FATFLG ‘ T 
7732 065730 ERRHRD ERRNO. T26B0T , EXPREC 1 TAPE NOT AT BOT AFTER REWIND 
0657 104456 TRAP CSERHRD 
065732 001271 «WORD 697 


Ea 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 0250 
TEST 6: REREADS 

065734 073315 . WORD T2680T 
065736 015564 . WORD EXPREC | 

7733 065740 135$: CKLOOP ;LO00P IF SELECTED 
065740 104406 TRAP CSCLP1 

7734 065742 0127357 000400 072302 MOV 0256. , T26RSZ sSTART RECORD SIZE 

7735 065750 000420 BR 140% sSKIP OVER SPACE 

7736 

7737 I AHHEAAASAEHEHSEHSHASEEHAEAHEEESHOHEEEESEASESESEHESORESEOEEEEEHESEEE 

7738 3 

7739 sISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 

7740 vert 15 SETS DIRECTION - O=FORWARD 1*REVERSE 

7741 

7742 : SESSSHSSEESSEASSEESRSESESEESESEHEHEEEEEESEHRHOEEEHEEEEEEEEEHEEEEEEEEEEE 

7743 

7744 065752 012703 000001 1368: MOV #000001 ,R3 3SET UP SPACE COMMAND (1 FORWARD) 

7745 065756 004737 010556 JSR PC, SPACE sCALL SPACE ROUTINE 

7746 065762 103413 ecs 140% 36R, IF NO TROUBLE 

7747 065764 016501 000002 MOV TSSRCRS),R1 3sGET TSSR 

7748 065770 0612702 000200 MOV @SSR ,R2 sSET UP EXPECTED TSSR 

7749 065774 010004 MOV RO,R4 sPACKET ADORESS SET UP 

7750 065776 005237 002212 INC FATFLG sBUMP COUNT 

7754 066002 ERRHRD ERRNO, T26SC .PKTSSR sSPACE (FORWARD) FAILED 
066002 104456 TRAP CSERHRD 
066004 001272 . WORD 698 
066006 072717 . WORD T26SC 
066010 012136 . WORD PKTSSR 

7755 066012 1408: CKLOOP sLOOP IF SELECTED 
066012 104406 TRAP CSCLP1 

7756 066014 013703 072302 MOV T26RSZ,R3 sRECORD SIZE 

A A 066020 013737 003114 072252 150%: MOV FREE , T26RB6 sSTARTING READ BUFFER ADDRESS 

7759 3 OF OHOHAHEAESSSESHSASASESHESESAESSSESEHSESSHEESEHASEERESAESESERESEE 

7760 3 

ras sREREAD DATA,CVC=1,ACK, OPP COMMAND 

H 

das, 5 SOREOHSESHHOSESSESAESSESESESHEEEESEEESSEEESESE SESE SEEEHEDDESEEESES 

764 

7765 066026 012737 161401 072250 MOV #161401 , T26PK3 sREREAD DATA,CVC=1,ACK, OPP COMMAND 

7766 066034 012704 072250 165%: MOV OT26PK3.R4 3sSET UP R4 WITH PACKET ADORESS 

7767 066040 010337 072256 MOV R3, T26SZ 3SET UP RECORD SIZE IN PACKET 

7768 066044 010465 MOV R4, TSOBC(RS ) sISSUE COMMAND 

7769 066050 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 

7770 066054 016501 MOV TSSR(RS), R1 ;GET TSSR ae 

7771 066060 000200 MOV @SSR, sSET UP EXPECT 

7772 066064 020102 CMP R1,R2 sARE THEY EQUAL 

7773 066066 001406 BEQ 170% 3BR, IF a 

7774 066070 005237 002212 INC FATFLG 3BUMP COUN 

7778 066074 ERRHRD ERRNO, TO6RRF .PKTSSR i TSSR SNCORRECT AFTER = DATA 
066074 104456 CSERHRD 
066076 001273 "WORD 699 
066100 072525 . WORD T26RRF 
066102 012136 . WORD PKTSSR 

7779 066104 170%: CKLOOP 3;LO0P IF SELECTED 
066106 104406 TRAP CSCLP1 

7780 066106 017701 115002 MOV GFREE ,R1 sFIRST WORD FROM READ BUFFER 

7781 066112 013702 072276 MOV T26CNT ,R2 3SET UP EXPECTED 


7782 066116 020102 CMP R1,R2 sIS TAPE POSITION CORRECT 
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TEST 6: REREADS 
7783 066120 001406 8EQ 190$ sKEEP GOING POSITION OK 
7784 066122 005237 002212 INC FATFLG ;BUMP COUNT 
7788 066126 ERRHRD ERRNO, TO26WNG,EXPREC | TAPE POSITION INCORRECT 
066126 104456 TRAP CSERHRD 
066130 001274 . WORD 700 
066132 072306 «WORD T26WNG 
066134 015564 . WORD EXPREC 
7789 066136 1908: CKL.OOP 
066136 104406 TRAP CSCLPi1 
7790 066140 062737 000001 072276 ADD #1, T26CNT ;BUMP TAPE RECORD COUNTER 
7791 066146 005723 TST (R3)- sNEXT RECORD SIZE 
7792 066150 010337 072302 MOV R3, T26RSZ sSTORE RECORD SIZE 
7793 066154 022703 000412 CMP $266. ,R3 sAT MAX SIZE YET 
7794 066160 001402 BEQ 220% ;6R, IF AT END OF THE SUBTEST 
7795 066162 000137 065752 JMP 136% sKEEP GOING MORE RECORDS 
7796 066166 2208: 
7797 066166 ENDSUB $>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
066166 110114: 
066166 104403 TRAP CsESsuB 
7798 066170 023727 002212 000017 CMP FATFLG, #15. sIS ERROR COUNT AT 25 
7799 066176 103402 BLO 999% ;BR, IF LESS THAN 25 
7800 066200 004737 017272 JSR PC ,CKDROP sTRY TO OROP THE UNIT 
7801 066204 999%: 
7802 
7803 3° 
7804 ; 
coor aaa 6, SUBTEST 11 
7807 i VERIFIES THAT A REREAD NEXT COMMAND READING A 
7808 i sRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES 
7809 sTAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
7810 sLONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH 
7811 sSTATES OF OPP (O AND 1). 
7812 3 
7813 3 
7814 3 
7815 3° 
7816 
7817 
7818 066204 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>2>>>>> 
066204 T6.11: 
066204 104402 TRAP CsBSUB 
7819 066206 004737 075040 JSR PC, T26REST ;SET COMMAND PACKET 
7820 066212 004737 075132 JSR PC, T26RT2) sSET UP OTHER COMMAND PACKET 
rors 066216 004737 075174 JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 
wees Priitiiitiitiitiitiiiiiiiitiiititiiiiiititiiiiitititttitititttttt tt 
3 
os sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
t 
vee? Tritiiitiitiitiiiiiiiiiitiiitiiiiiiiiiiiiiitititiitititititit tt tttt. 
828 
7829 066222 004737 016064 JSR PC, SOF INIT 300 ah ha y? CONTROLLER 
7830 066226 103407 6CcS 20% s6R IF INIT WAS OK 
7831 066230 005237 002212 INC FATFLG 3;BUMP COUNT 
7835 066234 010001 MOV RO,R1 SCONTENTS OF TSSR REGISTER 


7836 066236 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 





G4 


TSV? - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 0252 
TEST 6: REREADS 
066236 104455 TRAP CSEROF 
066240 001275 WORD 01 
066242 003650 . WORD SFIERR 
066244 012124 WORD SF IMSG 
7837 066246 013737 002172 072140 20%: MOV UNITN, T260SW sSET UP UNIT NUMBER 
7838 
7839 066254 012704 672120 MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
7840 
7841 J PRRAAAEHHSSEEEREREEEEEESOSEEEEEEEEEEREEESEERESEREEEEREEEREEEEEEEEEES 
7842 H 
7843 s;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
7844 
7845 s Conccnesecconconssesonenssconecessoncosecesonesoooneeseooneoesoes 
7846 | 
7847 066260 004737 010752 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
7848 066264 103407 BcS 26% 3s6R, IF COMMAND ISSUED OK 
7849 066266 005237 002212 INC Any ag Fy OUNT 
7853 066272 010001 MOV sSAVE CONTENTS OF TSSR 
7854 066274 ERRHRD a Fl S WRTMSG , SF IMSG sWRITE CHARACTERISTISC FAILED | 
066274 104456 TRAP CSERHRD 
066276 001276 . WORD 702 
066300 005054 -WORD WRTMSG 
066302 012124 . WORD SF IMSG 
7855 066304 263: CKLOOP ;LOOP IF SELECTED 
sens 066304 104406 TRAP CSCLP1 
7857 FPOAAEHEASESSEESEEESESESESEASESEESESEESESESEERESESEEEESESREREEEHEEDE 
7858 : 
eee ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
a | Soeooecenosesesoossosoeseoesesesecsonesceseeeseossossecesceeseeees 
7863 066306 004737 011104 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
7864 066312 016501 000002 MOV TSSRCRS),R1 sGET TSSR 
7865 066316 012702 000200 MOV @SSR ,R2 3SET UP EXPECTED TSSR 
7866 066322 103407 BCS 30% 3B8R, IF NO PROBLEM 
7867 066324 010004 MOV RO,R4 sPACKET ADORESS SET UP 
7868 066326 005237 002212 INC FATFLG sBUMP COUNT 
7872 066332 ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
066332 104456 CSERHRD 
066334 001277 . WORD 703 
066336 073604 T 
012136 PKTSSR 
7873 066342 30%: CKLOOP sLOOP IF SELECTED 
re7e 066342 104406 TRAP CSCLP1 
bs da j PRSSSEEEEEESEEEEEELSESESEEEESESESSERESEESEEHESEEESSEESEEERE DESDE EEEEESE 
6 3 
sd sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
ada s Soecensecoooscoooosososcooosssoosccenseoeoosoonsseseooeoooseeseees 
78681 066344 013701 072150 MOV T26BFR+6,R1 sPICK UP XSTO 
7882 066350 010102 MOV R1,R2 sSET UP EXPECTED 
7883 066352 052702 000002 BIS @BIT1,R2 SSET BOT BIT IN EXPECTED 
7884 066356 020102 CMP R1,R2 sD0ES EXP = REC'D 


7885 066360 001406 BEQ 40% sBR, IF EQUAL (OK) 





7886 066362 
7890 066366 
366 


066 
066370 
066372 
066374 
7891 066376 
76 


066516 


012703 
013737 


012737 
012704 


010337 
0465 
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001000 
003114 


MACRO M1113 14-JUN-84 14:17 SEQ 0253 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26B0T ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 704 
-WORD T26B0T 
-WORD EXPREC 
40$: CKLOOP sLOOP IF SELECTED 
TRAP CsCLPi 
MOV #512. ,R3 sRECORD SIZE 
072252 MOV FREE , T26R8 sSTARTING WRITE BUFFER ADDRESS 
jPORAOREASASERESESEEREEEESEORERERESESEDESEEREREDESEDESEEESESEEEEESS 
; 
sWRITE DATA,CVC=#1,ACK COMMAND 
; 
j PORPRSEESERERERERERESEREEEDEREOREREREREREEESESESESREEEESOSESEEEESS 
072250 MOV #140005 , T26PK3 sWRITE DATA,CVC#1,ACK COMMAND 
aes MOV @T26PK3 ,R4 sSET UP R4 WITH PACKET ADDRESS 
MOV R3, T26SZ sSET UP RECORD SIZE IN PACKET 
MOV R4, ee s ISSUE COMMAND 
JSR »WAIT sWAIT FOR SSR TO SET 
MOV TSSRCRS), Ri sGET TSSR CONTENTS 
MOV @SSR ,R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY E 
BEQ 75% sBR, IF OK 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
‘ 705 
-WORD WRTERR 
-WORD PKTSSR 
7S$: CKLOOP sLOOP IF SELECTED 
TRAP CsC_P1 
s PRSSRSSSSHESESSESESESESESESEESESESESEEEEREDERESESESESESESEESESESES 
; 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
; 
s FShOSSSeeesasesesesesaseseseooeseceoeseersseseseseoooeeeseeseeeses 
JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
MOV TSSRCRS),R1 sGET T 
MOV @SSR ,R2 sSET UP EXPECTED TSSR 
BCS 130% sBR, NO M 
MOV RO,R4 sPACKET ADDRESS SET UP 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26RWN,PKTSSR ; REWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 706 
-WORD T26RWN 
-WORD PKTSSR 
130%: CKLOOP sLOOP IF SELECTED 
TRAP CsCLP1 


F FSSSSSESEAESSHESESSEASEESSESEESESESSEHSAEHESEESSEESEHRESHSEEEEEEEEEEEEESD 


013701 
010102 


104406 
013737 


013701 
010102 
052702 
020102 
001406 
005237 


TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 


003114 


161401 
072250 
072256 
000000 


072150 
010000 


002212 


MACRO M1113 


072252 


072250 


14 


SEQ 0254 


14-JUN-84 14:17 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
: 
Wetirrriri tii iri titiriririiiiiiiiiiiiiriiiiiiiiiiiiiiiriririi ti it 
MOV T26BFR+6,R1 sPICK UP XSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS #BIT1,R2 sSET mie. BI" IN EXPECTED 
R1,R2 sDOES F*" «= REC'D 
BEQ 140% BR. aF —- (OK) 
INC FATFLG 3B". COUN 
ERRHRD ERRNO, T26B0T ,EXPREC 'APE NOT At BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 707 
-WORD T26B80T 
-WORD EXPREC 
140%: CKLOOP sLOOP IF SELECTED 
TRAP CsCLP1 
DEC R3 sSET RECORD SIZE TO 511. 
MOV FREE , T26R8 STARTING READ BUFFER ADDRESS 
{PRORASSEESESESESEEERSSERESEDESEESESESESEEEESEEEERERESESESESEESEEEES 
; 
sREREAD DATA,CVC=1,ACK,OPP=1 COMMAND 
; 
jPRSRSRESESESESEERESESESESESEESESEDEEEDEEEESESEEEEEESESEEEESESESEES 
MOV #161401 , T26PK3 sREREAD DATA,CVC=1,ACK,OPP=1 COMMAND 
165%: MOV @T26PK3 ,R4 ;SET UP R4 WITH PACKET ADDRESS 
MOV R3,T26SZ SSET UP RECORD SIZE IN PACKET 
MOV R4, TSDBCRS) s ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sGET TSSR CONTENTS 
MOV @SSR!SC!BIT2,R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 170% sBR, IF OK 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26TRL ,PKTSSR :TSSR INCORRECT AFTER —s DATA 
ee 
- WORD ToS TRL 
-WORD PKTSSR 
170%: CKLOOP sLOOP IF SELECTED 
TRAP CscCLP1 


§ SSSHESESSSSESESSSSESESESSESSSSESSSSESAESSEESESHESAESEESSESEHKESESEHESSE 


3 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


G 
J SSSSEESSSSSESSSESSESSESSESSASSHEEKESSSESEESHSESESSESESSSEHESSESSESEAESESEESEE 


MOV T26BFR+6,R1 sGET MESSAGE BUFFER 


MOV R1,R2 sSET UP EXPECTED 
BIS #6IT12,R2 sSET THE RLL BIT IN EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 180% sBR, IF EQUAL CALL IS WELL) 


INC FATFLG ; BUMP COUNT 


TSV7 - HARDWARE TESTS 1-8 


TEST 6: REREADS 


6037 067036 


104406 
012703 
013737 


012737 
012704 


013701 
010102 


104403 
023727 


000777 
003114 072252 


141401 072250 


002212 


072150 
010000 


002212 


002212 000017 


MACRO M1113 


ERRHRD 


180$: CKLOOP 


MOV 
MOV 


14-JUN-84 14:17 


ERRNO, T26LON,EXPREC 


#511. ,R3 
FREE , T26RB 


SEQ 0255 


FSRARSESSSASESASSSASASASSASSESEAAAESHRESAESAESSESESHSEHEESASSESSEEEEEAEEEEESE 


; 
sREREAD DATA,CVC=1,ACK COMMAND 


s 
FSSSSAAHSSSSASSSSASASSESAASEHASHESAESSEEES SAS SHSESASSESHESSEHESESESESESEESE 


365$: MOV 


BEQ 
ERRHRD 


3708: CKLOOP 


#141401, T26PK3 
26PK3 ,R4 


TSSR(RS),R1 
@SSR!SC!BIT2,R2 
R1,R2 


370$ 
FATSLG 
ERRNO, T26TRL ,PKTSSR 


F SSSHASESSSESSSSHSSSSSSSSASSSESSSEHSSHSEHSESEEESEESESEHSEEEESEEEEEESEESE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
PESEREHSSHSEHESHEHKHSEREEHEAHEEHEREHEEEEREEHKERHHEAEAEAEERRERRE KEE HEHEHE 


T26BFR+6,R1 

R1,R2 

#6IT12,R2 

R1,Re 

360% 

FATFLG 

ERRNO. T26LON, EXPREC 


FATFLG,@15. 


; THE RLL BIT WAS NOT SET IN XSTO 
TRAP CSERHRD 
-WORD 709 
-WORD T26LON 
. WORD EXPREC 
TRAP C$CLPl 

sSET UP SIZE OF RECORD 

sSTARTING READ BUFFER ADDRESS 

sREREAD DATA,CVC=1,ACK COMMAND 

sSET UP R4 WITH PACKET ADDRESS 

sSET UWP RECORD SIZE IN PACKET 

sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

;ARE THEY EQUAL 

;BR, IF oe 

;BUMP C 

;TSSR ENCORRECT AFTER —s a> 
. WORD 710 
. WORD T26TRL 
WORD PKTSSR 

;LO0P IF SELECTED 
TRAP CS$CLP1 

sGET MESSAGE BUFFER 

3SET UP EXPECTED 

iSET THE _% ase IN EXPECTED 

sARE THEY 

ee EQUAL “teu IS WELL) 

; THE RLL BIT WAS NOT SET IN XSTO 
RAP cs 7 ee 
. WORD TeeL.ON 
.WORD EXPREC 


TRAP CsCLP1 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


L10115: 
TRAP CsESUB 
sIS ERROR COUNT AT 25 





ee . 


a eee 


TEST 6: REREAD 


8039 067046 
8040 067050 
8041 067054 


067114 
8079 067116 
8080 


6081 067124 


6089 067130 
8090 067134 
6091 067136 
8095 067142 


103402 
004737 


012124 
013737 


012704 


017272 


075040 
075132 
075174 


016064 
002212 


002172 
072120 


010752 
002212 


MACRO M1113 14-JUN-84 14:17 SEQ 0256 
BLO 999$ ;BR, IF LESS THAN 25 
JSR PC ,CKDROP :TRY TO OROP THE UNIT 
999%: 
3¢ 
;TEST 6, SUBTEST i2 
3 
;VERIFIES THAT A REREAD NEXT COMMAND READING A 
sRECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES 
;TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
sSHORT (RLS) BIT SET. ‘T IS VERIFIED THAT T 
sRESIOUAL BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER 
sCONTAINS THE PROPER NONZERO VALUE (E.G., THE 
sOIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND T 
sACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH 
sSTATES OF OPP (0 AND 1). 
3 
3 
a 
. BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
76.12: 
TRAP CsBSuB 
JSR PC, T26REST :SET COMMAND PACKET 
JSR PC, T26RT2 ;SET UP OTHER COMMAND PACKET 
JSR PC, T26RTS ;SET UP OTHER COMMAND PACKET 
PririiT i ttitiitiiitiiiiitiiiiiiiiiiitiiititiiiiititiititii titi tt 
t 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
auaneannnneenesensnenentonssnsoeeosnsnesnseanennesehounanenennetiit 
JSR PC, SOF INIT :00 INITIALIZE ON CONTROLLER 
BcS 20% ;6R IF INIT WAS OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERRDF ERRNO,SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 712 
-WORD SFIERR 
-WORD SFIMSG 


072140 


208: MOV UNITN, T260SW 
MOV @T26PACKET ,R4 

{ COSSSSEOSESESSEESESEESEESSESEESESEESEESEESEESEESEESEDEEEEESEEEEESS 

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

| Poeccccssccccccccssooccooscscsssseesccesesccsesseoeeseccsssceseee 


JSR PC, ,WRICHR sISSVE WRITE CHARACTERISTICS 


;SET UP UNIT NUMBER 


6cS 26% s68R, IF COMMAND ISSUED OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sSAVE CONTENTS OF TSSR 


sSUBROUTINE NEEDS PACKET ADORESS 


TSV7 - HAROWARE TESTS 1-8 


TEST 6: 


REREADS 


067214 013701 
067220 poten 


104406 
067250 012703 
067254 0135737 


067262 012737 


000400 
003114 072252 


140005 072250 


MACRO M1113 14-JUN-84 14:17 


ERRHRD ERRNO, WRIMSG, SFIMSG ;WRITE CHARACTERISTISC hoy 
AP 
. WORD 
. WORD 
. WORD 
268: CKLOOP sLOOP IF SELECTED 
TRAP 


§ SSSSSSSSSSSHSSSHSSSSSHHSSHESSHSESSESSHESESESHESSESEESESEHSESEESEEESEHESESEOED 


ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


: 
J SSSSHSESSSSSSSHSSSHSESSSSSSSSSSSSSHSSSASSSSSESSSESSESSHSESESSESESEE SESE 


JSR PC ,REWIND .< TAPE REWIND COMMAND 

MOV TSSRC(RS),R1 sGET T 

MOV @SSR ,R2 sSET UP EXPECTED TSSR 

BCS 30% ;8R, IF NO PROBLEM 

MOV RO,R4 sPACKET ADORESS SET UP 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED a 
. WORD 
. WORD 
. WORD 

30%: CKLOOP ;LOOP IF SELECTED 

TRAP 


POCRESHEEHKEHHE HASH SAAS HOEASCAEHKALKHREACEHRSE AERA HE BHKAKA ER HE HAEHRESEE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
{ SSSSSSSSSSSSSSSSSSSSSSSSSSESSSHSSSSSSESSSSESSSSSSSSSSSESSSSSEHESEESEES 


MOV T26BFR+6,R1 sPICK UP XSTO 

MOV R1,R2 sSET UP EXPECTED 

BIS #6IT1,R2 iSET BOT BIT IN EXPECTED 

CMP R1,R2 ;D0ES EXP = REC'D 

BEQ 40% sBR, IF EQUAL (OK) 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T26B0T ,EXPREC ; TAPE NOT AT BOT AFTER a Hy 
. WORD 
. WORD 
. WORD 

408: CKLOOP sLOOP IF SELECTED — 
MOV 0256. ,R3 sRECORD SIZE 
MOV FREE , T26R8 sSTARTING WRITE BUFFER ADDRESS 


{ SSSSSSSHSSSSSSSSSSSSSSSSSSSSSHESSSSSSSHSESSESSSSHSESSSESESSSSESSESEEEEES 
j 

sWRITE DATA,CVC#1,ACK COMMAND 

» 00000000000000000000000000000000000000000000000000000000000000 0006 


MOV #140005 , T26PK3 s;WRITE DATA,CVC=1,ACK COMMAND 


SEQ 0257 
CSERHRD 
713 


WRTMSG 
SF IMSG 


CSCLP1 


CsCLP1 


CscCL.P1 


TSV7 - HARDWARE IESTS 1-8 


Test 


6195 


6: REREAD= 


012704 
010337 


013701 
010102 


072250 
072256 
000000 
016340 
000002 


002212 


011104 


MACRO M1113 14-JUN-84 14:17 


65$: 


758%: CKLOOP 
120%: 


OT26PK3 ,R4 
R3,T26SZ 


FATFLG 


SEQ 0258 

;SET UP R4 WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTE 

;ARE THEY EQUAL 

;BR, IF A 

;BuMP C 

;TSSR INCORRECT AFTER ne * DATA 

CSERHRO 

WORD 716 
-WORD  WRTERR 
-WORD PKTSSR 


;LOOP IF SELECTED 
TRAP CSCLPi 


:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


+ 
{ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSESSSESSSEEEE 


1308: 


z 


ooP 


PC ,REWIND 
TSSRCRS),R1 


@SSR, 
130% 
RO,R4 
FATFLG 


ERRNO , T26RWN,PKTSSR 


;CALL TAPE REWIND COMMAND 


; 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


; 
{ SSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSESSSSSSSSSSSSSSSESSSSSSSSEOSEEEEEE 


1358: CKLOOP 


;GET TSSR 

;SET UP EXPECTED TSSR 

:;6R, IF NO PROBLEM 

;PACKET ADORESS SET UP 

;BUMP COUNT 

;REWIND NOT ACCEPTED 
TRAP CSERHRD 
. WORD 717 
.WORD T26RWN 
. WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CsCLPl 

;PICK WP xXSTO 

;SET UW EXPECTED 

;SET BOT BIT IN EXPECTED 

;D0ES EXP = REC'D 

;8R, IF EQUA (OK) 

;BUeP COUNT 

; TAPE NOT AT BOT AFTER — 

CSERHRD 
One 718 
.WORD T2680" 
€ XPREC 


;LOOP IF SELECTED 


TSv? i nomene TESTS 1-8 


Test 6: 


8246 


067432 1046406 
067434 012705 
067440 0135737 


067526 013701 
067532 010102 


001000 
003114 


161401 
072250 
072256 
000000 
016340 
000002 
100204 


002212 


072146 
000400 


iG 


MACRO M1115 14-JUN-84 14:17 


MOV 0512. .R3 
072252 MOV FREE , TZ€RB 


SEG 0259 


Trae CSC e 
sRECORD SIZE 
STARTING READ BUFFER ADDRESS 


;REREAD NEXT. ACK ,CVC#1,0PP=1 


072250 MOV #161401, T26PK3 
165%: MOV @T26PKS .R4 
MOV R3, 126SZ 


MOV @SSR!SC!BIT2,R2 
CMP R1,R2 
BEQ 1708 


170%: CKLOOP 


FLG 
ERRHRD ERRNO. T26TRL ,PKTSSR 


sREREAD NEXT, ACK ,CVC*1,0PP=1 
;SET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

SET UP EXPECTED 

sARE THEY EQUAL 


;6R, IF OK 

;BUMP COUNT 

;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
. WORD 719 
-WORD T26TRL 
WORD PKTSSR 


;LOOP IF SELECTED 


§ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESESESESSESSESEEESSEESEASEES 


TREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


1 
§ SSSSSSESSSSSSSSSSSSSSL SESSSSSHSHSSESSSHHSSSESSSSESESSSEHEESSESESSEEEEEES 


MOV ar “pete 


MOV 1, 

BIS @61T14,R2 
CMP R1,R2 

BEQ 


160% 
INC FATFLG 


ERRHRD ERRNO, T26LO0P ,EXPREC 


MOV T26BFR+4,R1 
MOV 0256. ,R2 
CMP R1,R2 

BEQ 


190%: CKLOOP 


190% 
ERRHRD ERRNO, T26PEP ,EXPREC 


sGET MESSAGE BUFFER 

sSET UP EXPECTED 

;SET THE RLS BIT IN EXPECTED 
sARE THEY EQUAL 

sBR, IF EQUAL CALL IS WELL) 


sBUMP COUNT 
+ THE RLL BIT WAS NOT SET = E xSTO 


Cs€ 
. TUORO 720 
-WORD [26L0P 
-WORD EXPREC 
CSCLP1 


TRAP 
sPICK UP RESIDUAL BYTE COUNTER 
sTHIS SHOULD BE THE DIFFERENCE 
sIS THE DIFFERENCE CORRECT 
;BR, IF CORRECT 
sRBPCR NOT CORRECT 

TRAP CSERHRD 

-WORD 7 

-WORD T26P6P 

-WORD EXPREC 
;LOOP IF SEIECTED 





TSV7 - HARDWARE TESTS 1-8 
TEST 6: 


6247 
6248 
6249 
6250 
8251 
8252 
8253 
6254 
8255 
8256 
8257 


REREADS 


104406 
012703 001000 
013737 003114 


067610 
067612 


067616 072252 


012737 141401 072250 


012704 072250 
072256 
000000 
016340 
000002 
100204 


002212 


013701 072150 
010102 


072146 
000400 


MACRO M1113 14-JUN-64 14:17 


MOV 
MOV 


0512. ,R3 
FREE , T26RB 


FSSASSSSSSSSSHSSASSHSASSHSSSHSEKSE SHHEHEHSHESHHESESHSSSHEESESEEESOSESESE 


{REREAD NEXT, ACK ,CVC=1,0PP*0 


MOV 141401 , T26PK3 
MOV @T26PK3, 

MOV R3, T26SZ 

MOV R4, TSDBCRS ) 

JSR »WAITF 

MOV TSSR(RS),R1 
MOV @SSR!SC!61T2,R2 
CMP R1,R2 

BEQ 1 


ERRHRD ERRNO. T26TRL .PKTSSR 


270%: CKLOOP 


J SSHSHSSHSSSSHSSSSSSSSSSSSSSSSSSSSSSSSSSESSSHSSHSSSHESSSSESSESHSSEEEEEE 


j 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


6 
SF SOSSSSSSHSSSSSSSSSHSHSSSSSSSHSHSSSSESHSSSSSHSHSSSSSSHSSSSSSESHESSSSSEEEEE 


MOV T26BFR+6,R1 

MOV R1,R2 

BIS #61714 ,R2 

chp »R2 

BEQ 260% 

INC FATFLG 

ERRHRD ERRNO, T26L0P ,EXPREC 
260%: CKLOOP 

MOV T26BFR+4,R1 

MOV 0256. ,R2 

CMP R1,R2 

BEQ 2908 

ERRHRD ERRNO, T26PBP ,EXPREC 
290%: CKLOOP 


SEQ 0260 

TRAP CSCLP1 

sRECORD SIZE 

sSTARTING READ GUFFER ADDRESS 

sREREAD NEXT, ACK CVC*1,0PP=0 

sSET UP R4 WITH PACKET ADORESS 

sSET UP RECORD SIZE IN PACKET 

+1S COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 

sBUMP COUNT 

sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRO 
. WORD 721 
-WORD T26TRL 
. WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 

3GET MESSAGE BUFFER 

sSET UP EXPECTED 

3SET THE RLS BIT IN EXPECTED 

;ARE THEY EQUAL 

36R, IF come, (ALL IS WELL) 

s BUMP 

| THE RLL ert WAS NOT ah al xsTo 

CSERHRO 

"WORD 722 
. WORD T26L0P 
.WORD EXPREC 


TRAP CsCLP1 
sPICK UP RESIDUAL BYTE COUNTER 
sTHIS SHOULD BE THE DIFFERENCE 
sIS THE DIFFERENCE CORRECT 
3BR, IF CORRECT 
sRBPCR NOT CORRECT 


TRAP CSERHRO 
.WORD 722 
-WORO T26PBP 
-WORD EXPREC 


sLOOP IF SELECTED 


TSV7 - MAROWARE TESTS 1- 
TEST 6: REREADS 


067766 104406 
067770 3044035 
8299 067772 023727 


8300 070000 103402 
8301 070002 004737 


070064 012124 
8326 070066 013737 


9 
8340 070074 012704 


8 
8348 070100 004737 


002212 000017 
017272 


8 MACRO M1113 14-JUN-84 14:17 SEQ 0261 
TRAP CSCLPl1 
ENDSUB8 $>>>>>>>>>>>> END SUBTEST »>>>>>>>>> >>> 
L10116: 
TRAP CsESuUB 
CMP FATFLG,@15. 31S ERROR COUNT AT 25 
BLO 999% s6R, IF LESS THAN 25 
JSR PC, CKDROP sTRY TO OROP THE UNIT 


016064 
002212 


002172 072140 
072120 


010752 


9998: 

3° 

3 

sTEST 6, SUBTEST 13 


2 
sVERIFIES THAT A DATA BUFFER ADDRESS REFERENCING 
sNONEXISTENT MEMORY CAUSES RECOVERABLE ERROR 

s TERMINATION (TC*4 OR 5S) WITH NXM=1 AND THAT THE TAPE 
IS ULTIMATELY POSITIONED PROPERLY. ALL COMBINATIONS 
30F REREAD PREVIOUS/NEXT AND OPP=0/1 ARE TESTED. 
3 - 


BGNSUB g>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
76.13: 
TRAP C$6SUB 
TST NXMFLG 300 WE HAVE IT? 
BNE 10% sR, IF ENOUGH 
JP 200% SKIP THIS TEST IF NOT 
10%: JSR PC, T26REST 3SET COMMAND PACKET 
CLR T26CNT }CLEAR TAPE RECORD COUNTER 
JSR PC, T26RT2 sSET UP OTHER COMMAND PACKET 
JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 


Fs SSSSHSSHSSSSHSSHSSSASSSSSHSSOSSHHSSSSSSSHSSSSHEHSSSSHESSEHSHEHEEESEES 


H 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


° 
FS SSHSOSSSSSSSSSSSSSSHSSSSHSSSSESSSSSSSSHSSAHSSHSSSHSSHHSSHSSESSEESEEE 


JSR PC, SOFINIT s00 INITIALIZE ON CONTROLLER 

BCS 20% s8R IF INIT WAS OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 i CONTENTS OF TSSR REGISTER 

ERROF ERRNO, SFIERR,SFIMSG FATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 723 
-WORD SFIERR 
-WORD SFIMSG 

208; MOV UNITN, T260SW sSET UP UNIT NUMBER 
MOV OT26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 


S SSSSSHSSSSSESHHSSSSHSSSSSHSSSSSSESSSEHHSSESSASHESEASSSEHASSEEHESEHEOS 


; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
jOoercssccccosocccsooncsscoocecscsocosccooececsseeessosoeenccesces 


JSR PC, WRTCHR sISSUE WRITE CHARACTERISTICS 


TS¥7 - HARDWARE TESTS 1-6 
REREADS 


TEST 6: 


070104 
070106 
070112 
070114 
070114 
070116 
070120 
070122 
070124 
070124 


103407 
005237 
010001 


104456 
001324 
005054 


012124 
104406 


013701 
010102 
02 


104406 
013737 


oe 


MACRO M1113 14-JUN-84 14:17 SEQ 0262 
Bcs 26% s6R, IF COMMAND ISSUED OK 
002212 INC Ay sBUMP COUNT 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG, SF IMSG ;WRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 724 
.WORD WRTMSG 
-WORD SF IMSG 
265: CKL OOP sLCOP IF SELECTED 
TRAP CSCLPi1 
PIII rrrirrrrirriririiririiiiiiiiiiiiiriititiitiii itty 
° 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
; 
I rrrrrrririririrririririiiririiiiiriiriiiiiritiit iti ty 
021232 JSR PC, INVERT sINVERT THE EXTENDED FEATURES SWITCH 
011104 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
Bcs 30% sBR, IF NO PROBLEM 
000002 MOV TSSRCRS),R1 sGET TSSR 
MOV RO,R4 sPACKET ~~ ee SET UP 
002212 INC FATFLG Burr C 
ERRHRD ERRNO, T268WN,PKTSSR ; REWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 725 
-WORD T 
-WORD PKTSSR 
308: CKLOOP sLOOP IF SELECTED 
TRAP CsCLP1 
sOCSOSSREEESS CESEDESESESESEEEESESESESESESEEDESEEEEESESESEEESEEEEEES 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
; 
Ir rirrrrrrrrrrrrrrririirirririiiitiiritiiirititiitiiitt. 
072150 MOV T26BFR+6,R1 sPICK UP XSTO 
MOV R1,R2 sSET UP EXPECTED 
000002 BIS #BIT1,R2 sSET BOT BIT IN EXPECTED 
CMP R1,R2 sD0ES EXP = REC'D 
BEQ 40% s8R, IF EQUAL (OK) 
002212 INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26B0T ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 726 
-WORD T26B0T 
-WORD EXPREC 
408: CKLOOP sLOOP IF SELECTED 
CsCLP1 


003114 072252 


TRAP 
MOV FREE , T26R8 sSTARTING WRITE BUFFER ADDRESS 
j PROOOSOOSSSEDEEDESEEEEDEESEESEEDEEHEDSESEESEEEESEEDESEEEEESEEEEEEE 


SWRITE DATA,CVC=1,ACK COMMAND 


3 
S SSSOESHESSSEHESESEHSSSSESSSEHHEHSSSSHSSHESSHSESSHHHSSHHESSEHSHHEEKRESEEEEEE 





ES 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 0263 
TEST 6: REREADS 
8400 
8401 070226 012737 140005 072250 MOV #140005, T26PK3 ee DATA,CVC*1,ACK COMMAND 
070234 012704 072250 MOV OT26PK3,R4 sSET UP R4 WITH PACKET ADORESS 
8403 070240 012737 000400 072256 65%: MOV 256. ,T26SZ sSET UP RECORD SIZE IN PACKET 
8404 070246 013777 072276 112640 MOV T T, @FREE sMOVE T RECORD R TO BUFFER 
8405 070254 062737 000001 072276 ADD » T26CNT sNUMBER READY FOR NEXT RECORD 
8406 070262 010465 000000 MOV R4, TSOBC(RS) s ISSUE COMMAND 
8407 O 004737 016340 JSR »WAITF sWAIT FOR SSR TO SET 
8408 070272 016501 000002 MO’ TSSRCR5S),R1 sGET TSSR CONTENTS 
8409 070276 012702 000200 MOV @SSR, sSET UP EXPECTED 
8410 070 020102 CMP R1,R2 sARE THEY EQUAL 
8411 070304 001406 BEQ 75$ 36R, IF OK 
8412 070306 005237 002212 INC FATFLG sBUMP COUNT 
8416 070312 ERRHRD ERRNO, WRTERR ,PKTSSR 3TSSR INCORRECT AFTER WRITE DATA 
070312 104456 TRAP CSERHRO 
070314 001327 - WORD 727 
070316 005111 -WORD WRTERR 
070320 012136 -WORD PKTSSR 
8417 070322 758: CKLOOP ;LOOP IF SFLOCTED 
070322 1 TRAP CSCLP1 
8418 070324 022737 C00013 072276 CMP #11. ,T26CNT sCHEC! “ CR OF RECORDS WRITTEN 
8419 070332 001401 BEQ 120% om Ir AT END OF WRITE SEQUENCE 
8420 070334 000741 BR 65$ WRITE MORE RECORDS 
8421 070336 1208: 
070336 005037 003132 CLR NXMHI :SET TO 16 BIT ADDRESS 
8423 070342 1258: 
Pane 070342 005037 072276 CLR T26CNT 3SET RECORD COUNTER BACK TO ZERO 
oat PITTI itiiiiitiitiiiiiiiiiiiiitiiiititiiiiiiiiiiititiiiititiitt ttt 
3 
8428 s ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
3 
ata J PSOHSHSEASSESESESESESHSHHESEESESESEENSEREKODSEESESEOEEEEEEESSESESS 
1 
6432 070346 004737 011104 JSR PC REWIND sCALL TAPE REWIND COMMAND 
8433 070352 103411 BCS 1308 36R, IF NO PROBLEM 
6434 070354 016501 000002 MOV Ly peal 3;GET TSSR 
8435 070360 010004 MOV RO,R sPACKET ADORESS SET UP 
8436 070362 005237 002212 INC FATFLG sBUMP COUNT 
8440 070366 ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
070366 104456 TRAP CSERHRD 
070370 001330 . WORD 728 
070372 073604 . WORD T26RWN 
070374 012136 -.WORD &KTSSR 
8441 070376 130%: CKLOOP sLOOP IF SELECTED 
— 070376 104406 TRAP CsCLPl 
8443 FPOOEEAESSEEAESEESEASEEEESEEEHOEESEESEASRESEEDRAAESEESEEOEESEESEESESE 
8444 3 
es sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
3 
8447 Pitiiiritiiiiiiitiitiiiiititiiiiiiititititiiiiiiitiiitiitiiitiittt 
8449 070400 013701 072150 MOV T26BFR+6,R1 sPICK UP xSTO 
8450 070404 010102 MOV R1,R2 3SET UP EXPECTED 
8451 070406 052702 000002 BIS eeim1, R2 sSET BOT BIT IN EXPECTED 
8452 070412 020102 CMP R1,R2 sDOES EXP = REC'D 


TSV7 - HARDWARE TESTS 1-8 


TEST 6: REREADS 


8502 
8503 070604 
504 070612 


001406 
005237 


104456 
001331 
073315 
015564 


104406 
012703 
013737 
013737 


011337 
04 


002212 


072266 
003130 
003132 


140001 
000400 


072254 
003114 
000000 


016340 


MACRO M1113 


072252 
072254 


072256 


072250 
072256 
072252 


Fe ss 


14-JUN-84 14:17 


BEQ 140$ 

INC FATFLG 

ERRHRD ERRNO, T26B0T ,EXPREC 
1408: CKLOOP 

MOV @T26RN,R3 
150%: MOV NXMLO, T26RB 


MOV NXMHI , T26RB+2 


SEQ 0264 


s;BR, IF EQUAL (OK) 

sBUMP COUNT 

3 TAPE NOT AT BOT AFTER REWIND 

CSERHRD 
729 


T26B0T 
EXPREC 


TRAP CSCLPi 
sCOMMAND BUFFER ADDRESS 
iSTARTING READ BUFFER ADDRESS 
sSET UP HIGH ORDER ADDRESS BITS 


sLOOP IF SELECTED 


J SSOAASSSHHHSSHKSESSAASHSHAKSESHSESHSSSEASEEEESESEESSHEHESEEAESEEHEOES 


; 
sREREAD DATA, IE,ACK, OPP COMMAND 


é 
J SSSSSHSSSSSSSHSSSSSHSHHSSEEHAESAASEEAEEAOSEHESESESEEEEHEEEEESOREEEE 


MOV C(R3), T26PKS 
165%: MOV @T26PK3 ,R4 


JSR PC,.WA 

MOV TSSRCRS),R 

MOV OSSRINXM!SC!BITS, R2 
CMP nh “y 

BEQ 


170 
BIT (RS) ,@B1T9 
BEQ 168% 
BIT R1,@87T1 
170% 


BNE 
168%: 

INC NXMHI 

CMP NXMHI , 04 

BNE 125% 

INC FATFLG 

ERRHRD ERRNO, T26RRF ,PKTSSR 
170%: CKLOOP 


sREREAD DATA, IE,ACK, OPP COMMAND 
sSET UP R4 WITH PACKET ADORESS 
sSET UP RECORD SIZE IN PACKET 


s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

iSET UP EXPECTED 

sARE THEY EQUAL 

s8R, IF OK 

CHECK FOR A READ COMMAND 
s8R, IF IT WAS A READ COMMAND 
sWAS BIT1 SET 

sBR, IF REREAD AND BIT1 SET 


sBUMP TO NEXT ADORESS RANGE 

sCHECK FOR OVERFLOW 

36R, IF MORE BITS TO GO 

sBUMP COUNT 

;TSSR INCORRECT AFTER REREAD DATA 
TRAP CSERHRO 

.WORD 730 

. WORD T26RRF 

.WORD PKTSSR 


TRAP CsCLP1 


sLOOP IF SELECTED 


FSSSSSSSHSESHSSASSSSSEESEAESHSSESEESSHEESEHESSEESHESHHHEHSEESHEEEHEEEEE 


; 
sREAD DATA, ACK,CVC=1 COMMAND 


3 
FPSSSSEHSSSSESSSSSESSSSSSSSESSEHSSHEESESSESESESEESEHEESSHSEHESSEHESEEEESESD 


MOV #140001 , T26PK3 
MOV 0256. ,T26SZ 
T26RB+2 


JSR PC, WAITF 





sREAD DATA, ACK,CVC=1 COMMAND 


sWAIT FOR SSR 


S4 070754 
8555 070756 005237 002212 INC FATFLG 1B T 
86559 070762 ERRHRD ERRNO, T26B0T ,EXPREC sTAPE NOT AT BOT AFTER REWIND 


Sv7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 0265 
Test 6: REREADS 
8506 070622 016501 000002 MOV TSSR(RS),R1 sPICK UP THE TSSR 
6507 070626 012702 000200 MOV @SSR,R2 sSET UP EXPECTED 
8508 070632 020102 CMP R1,R2 :I1S THE TSSR OK 
8509 070634 001406 BEQ 180% s6R, IF TSSR OK (GOOD ) 
8510 070636 005237 002212 INC FATFLG sBUMP COUNT 
8514 070642 ERRHRD ERRNO, RDERR,PKTSSR sREAD DATA COMMAND FAILED | 
070642 104456 TRAP CSERHRD 
070644 001333 -WORD 731 
070646 005204 -WORD RODERR | 
070650 012136 WORD PKTSSR 
8515 070652 180$: CKLOOP ;LOOP IF SELECTED 
070652 104406 TRAP CSCLPi | 
8516 070654 017701 112234 MOV @FREE,R1 sFIRST WORD FROM READ BUFFER 
8517 070660 012702 000001 MOV #1,R2 3;SET UP EXPECTED 
8518 070664 020102 CMP R1,R2 sIS TAPE POSITION CORRECT | 
8519 070666 001406 BEQ 190$ sKEEP GOING POSITION OK 
8520 070670 005237 002212 INC FATFLG sBUMP COUNT 
8524 070674 ERRHRD ERRNO, T26WNG,EXPREC 3; TAPE POSITION INCORRECT 
070674 104456 TRAP CSERHRD 
070676 001334 .WORD 732 
070700 072306 -WORD T26WNG 
070702 015564 .WORD €EXPREC 
8525 070704 190%: | CKLOOP | 
aie 070704 104406 TRAP =—s« CSCLP1 
8527 FSCHAASSEARSSESESSSSEESSEEASEESESEEASSEESEAERESESEEHESESSEEEEEEEEEEES | 
8528 ; 
ase s;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
rea F SASHHASSSSSSSOSSSSSSSSSSSSSHSSSHSSSHEASESSASESSSHSSESSSHKSEHSKEESEEEESS 
8 
| 8533 070706 004737 011104 JSR 4 REMIND sCALL TAPE REWIND COMMAND 
8534 070712 103411 6cS 3BR, IF NO PROBLEM 
8535 070714 016501 000002 MOV TSSRCRS), R1 ;GET TSSR 
8536 070720 010004 MOV RO,R sPACKET ADORESS SET UP 
| 8537 070722 005237 002212 INC FATFLG ;BUMP COUNT 
8541 070726 ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
070726 104456 TRAP CSERHRO 
| 070730 001335 .WORD 733 
070732 07 .wORD T 
| 070734 012136 .WORD PKTSSR 
8542 070736 194$: CKLOOP sLOOP IF SELECTED 
! eae 070736 104406 TRAP CSCLPi 
on { SEHSESEHAESESSSSESSESSSSEASSSSESSSSSESSSSESSHEESESSSSSABESESSSESSSOESESE 
é 
ooee sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
6 
oo. J SSHSESSSSSSESSSESSESEHSSSSSSSSSSSSSSASSHSSSSHSESASSHSSSESSESSESESHESE 
8550 070740 013701 072150 MOV T26BFR+6,R1 sPICK UP XSTO 
8551 070744 010102 MOV R1,R2 3SET UP EXPECTED 
8552 970746 052702 000002 eis @BIT1,R2 3SET BOT BIT IN EXPECTED 
6553 070752 020102 CMP R1,R2 s;D0ES EXP = REC'D 
85' 406 
| 
| 
! 





8 

8570 070776 
6571 071002 
8572 071006 
6573 071010 
6574 071012 
8575 071016 


8562 
8583 


A Rg im age igh ie 
TEST 6: REREAD 


000001 
010556 


177777 


002212 
017272 


075040 
075132 
075174 


MACRO M1113 


000017 


14-JUN-84 14:17 


TRAP CSERHRD 
WORD 734 


‘WORD 126807 
"WORD EXPREC 


CSCLP1 


196%: CKLOOP sLOOP IF SELECTED a 
MOV R3,R2 sSAVE R3 FOR A MOMENT 
- grpienanager empire ti ee aianaene acigerin meinem i Sena oe 


ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
:BIT 15 SETS DIRECTION - O=FORWARD 1 REVERSE 


° 
FSSSSASSASSSSSSEASSSHHSSSAEHSESSESSSSSSSHEKESSSEHSHESSSESSSESSESESSEEESE 


MOV #1,R3 sSPACE ONE REC 
JSR PC, SPACE sCALL SPACE ROUTINE 
MOV R2,R3 sREST R3 
TST CR3)+ sBUMP COUNTER 
CMP (R3),0177777 sEND OF COMMAND BUFFER YET 
anes BNE 150$ sMORE COMMANDS KEEP GOING 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10117: 
TRAP CsESuB 
CMP FATFLG,@15. sIS ERROR COUNT AT 25 
BLO 999% +n IF LESS THAN 25 
— JSR PC ,CKDROP Y TO OROP THE UNIT 


3* 
; 
_— 6, SUBTEST 14 


;VERIFIES THAT REREAD PREVIOUS WITH OPP=0 (SPACE 

t SE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=1 
sCREAD REVERSE. SPACE FORWARD) ISSUED WHEN THE TAPE 
sPOSITIONED AT BOT CAUSE FUNCTION REJECT TERMINATION 
sWITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET. 
i 

; 

; 

g° 


BGNSUB 


; TRAP CsBSUB 
CLR R3 sCLEAR TEST COUNTER 

JSR PC, T26REST sSET COMMAND PACKET 

JSR PC, T26RT2 sSET UP OTHER COMMAND PACKET 

JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 


{ SSSSHSSSESSSSESASSSESESESESESESESESESESSEAESSESEHESEHEEESESHESHESEEEEE 


; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


‘ 
J SSENSSSESSEEEESSHAESEEEESSHESESSEHESSESESRSEASSEHSESESSEHESESSEEASEAEEEEESD 


SEQ 0266 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
76.14: 


TSV? i cman TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 0267 
TEST rs REREAD 

8608 071056 004737 016064 JSR PC, SOFINIT 300 INITIALIZE ON CONTROLLER 

8609 071062 103407 BCS 208 ;6R IF INIT WAS OK 

8610 071064 005237 002212 INC FATFLG 3;BUMP T 

8614 071070 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

8615 071072 ERROF ERRNO, SFIERR , SF IMSG sFATAL ERROR TSSR WAS NOT OK 
071072 104455 TRAP CSEROF 
071074 001337 . WORD 735 
071076 003650 . WORD SFIERR 
071100 012124 . WORD SF IMSG 

——s 071102 013737 002172 072140 20%: MOV UNITN, T260SW ;SET UP UNIT NUMBER 

8617 

t4 071110 012704 072120 MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

8619 

8620 J PPMEAAERERSOASESEEAHEHEESEHSESASRESESESERERESRSSEEASEESESESEEEEOEEEE 

8621 3 

aes ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

8624 s Pnnnnononssscosooonoseoesessoeooosseeoeseosoonsoeeeoeoseseesetes 

8625 

8626 071114 004737 010752 JSR PC, ,WRTCHR sISSUE WRITE CHARACTERISTICS 

8627 971120 103407 bcs 25% :BR, IF COMMAND ISSUED OK 

8628 071122 005237 002212 INC FATFLG ;BUMP T 

8632 071126 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

8633 071130 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
071130 104456 TRAP CSERHRD 
071132 001340 . WORD 7 
071134 005054 . WORD WRTMSG 
071136 012124 -WORD SFIMSG 

8634 071140 25%: CKLOOP ;LO0P IF SELECTED 

9635 071140 104406 TRAP CSCLPi 

8636 J ESSASEHESSESESESHSESSASSESEASSEAESESEESESEHSEHEESASEAECHRESESESEHEESE 

6637 3 

ae sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

—— s eccsececoncoosoossscsseooosocessooeeoseesssosoooooecsesccoeesceees 

1 

6642 071142 004737 011104 268: JSR PC ,REWIND om. TAPE REWIND COMMAND 

8643 071146 016501 000002 MOV TSSRCRS).R1 3GET 

6644 071152 012702 000200 MOV @SSR ,R2 3SET Up EXPECTED TSSR 

8645 071156 103407 BCS 30% 3B8R, IF NO PROBLEM 
071160 010004 MOV RO,.R4 sPACKET ADDRESS SET UP 

8647 071162 005237 002212 INC FATFLG sBUMP COUNT 

6651 071166 ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
071166 104456 TRAP CSERHROD 
071170 001341 . WORD 737 
071172 073604 . WORD T26RWN 
071174 012136 . WORD PKTSSR 

8652 071176 30$: CKLOOP ;LOOP IF SELECTED 

9653 071176 104406 TRAP CSCLP1 

8654 f FEREEEEESEEEEESESESAEESEEESESEEEESESESESEEASEERESEAEREREEEREDEEDESE 

8655 : 3 

a sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

8658 ; s Seecesosooseoosoooesssesoocsoesonsososossosoonesesceeoncncosoceses 





TSv7 
TEST 6: 


- HARDWARE TESTS 1-8 
REREADS 


8682 071254 


071262 


012737 
000403 


012737 


072150 
000002 


002212 


000400 
003114 


161001 


141001 
072250 


000000 
016340 
000002 
100206 


002212 


072256 
072252 


072250 


072250 


JS. 


MACRO M1113. 14-JUN-84 14:17 
MOV T26BFR+6,R1 ;PICK UP xSTO 
MOV R1,R2 ;SET UP EXPECTED 
BIS @BIT1,R2 ;SET BOT BIT IN EXPECTED 
CMP R1,R2 ;D0ES EXP = REC'D 
BEQ 40$ ;BR, IF EQUAL (OK) 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T2680T, EXPREC ;TAPE NOT AT BOT AFTER REWIND 
TRAP  §CSERHROD 
.WORD 738 
“WORD  T26B80T 
“WORD EXPREC 
40%:  CKLOOP ;LOOP IF SELECTED vaieiee 
$CLP1 
MOV 0256. ,126SZ :SET UP RECGRD SIZE IN PACKET 
MOV FREE, T26RB ;ADDRESS OF READ BUFFER 
TST R3 ;CHECK NUMBER OF TIMES THROUGH HERE 
BEQ 50$ ;8R, IF FIRST TIME THROUGH HERE 
J SSSSSHSSSSHSSSSSSSESSSSSSHSSSHEHSSSESASAASHSESSESSEESESSHSSSSESESAEAEEEE 
Hy 
;REREAD,CVC*=1,ACK COMMAND 
OUTST TTT TTT TTT TTT TTT TTT TT TTT TTT TT TTT TTT TTT TTT TT TTT TTT TTT TTT 
MOV #161001, T26PK3 ;REREAD,CVC=1.,ACK COMMAND 
BR 55$ ;SKIP NEXT COMMAND 
J SSSSHSSSSSSSSSSSHAASSSSSSSSSHSSSESHSEASESSEHEKSSESSESHHSEHESEESESEHEEESEEERE 
;REREAD,ACK COMMAND 
s euaneneoseannonaseuasennsasesaseannennansonaspebousnntanennnonnned 
508: MOV #141001, T26PK3 ;REREAD.ACK COMMAND 
ae, MOV @T26PK3,R4 ;SET UP R4& WITH PACKET ADDRESS 
“MOV R4, TSDB(RS) ; ISSUE COMMAND 
JSR PC. WAITF ;WAIT FOR SSR TO SET 
MOV TSSR(RS),R ;GET TSSR CONTENTS 
MOV eSSR!SC#BIT1!81T2. R2  ;SET UP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 75$ ;BR, IF OK 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T26WDE,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
.WORD 739 
"WORD T26WDE 
"WORD PKTSSR 
75$:  CKLOOP ;LOOP IF SELECTED 


TRAP CsCLP1 
f PPSESEEHEEEEEEESEESEEEEEESOREEESEEEESEEEEESEEESEEEEEREREREREEEREEE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


é 
PROCKREKEERAREERAEEHEEA EME EKER EHAREREAHR ARES RAERRHEREREAAEERR EKER HED 





SEQ 0268 





ee 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 0269 
TEST 6 REREADS 
8713 
8714 071340 013701 072150 MOV T26BFR+6,R1 sGET XSTO STATUS WORD 
8715 071344 010102 MOV R1,Re2 sSET UP EXPECTED 
8716 071346 052702 002000 BIS #B8IT10,R2 sSET THE NEF BIT 
8717 071352 020102 CMP R1,R2 sARE THEY EQUAL 
8718 071354 001406 BEQ 170$ sBR, IF EQUAL (GOOD) 
8719 071356 005237 002212 INC FATFLG sBUMP COUNT 
8723 071362 ERRHRD ERRNO, T26NEF ,EXPREC sNEF SHOULD BE SET 
071362 104456 RAP CSERHRD 
071364 001344 . WORD 740 
071366 072374 . WORD T26NEF 
071370 015564 . WORD EXPREC 
8724 071372 170$: CKLOOP 
071372 104406 TRAP CSCLPl1 
8725 071374 005103 COM R3 sRESET THE SWITCH 
8726 071376 001261 BNE 26$ 3BR, IF FIRST TIME THROUGH HERE 
8727 071400 ENDSUB 
071400 L10120: 
071400 104403 TRAP CsESuB 
8728 071402 023727 002212 000017 CMP FATFLG,@15. 31S ERROR COUNT AT 25 
8729 071410 10 BLO 999% s8R, IF LESS THAN 25 
8730 071412 004737 017272 JSR PC ,CKDROP ; RY TO DROP THE UNIT 
86731 071416 999%: 
8732 
8733 :¢ 
8734 3 
dn ;TEST 6, SUBTEST 15 
F 
8737 ;VERIFIES THAT REREAD PREVIOUS WITH OPP=1 (SPACE 
8738 sREVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=1 
8739 ;(READ REVERSE, SPACE FORWARD) ISSUED WHEN THE TAPE 
8740 sPOSITIONED JUST BEFORE THE FIRST RECORD ON TAPE (BUT 
8741 iNOT AT BOT) CAUSES TAPE STATUS ALERT TERMINATION WITH 
das | ;THE REVERSE INTO BOT (RIB) STATUS BIT SET. 
: 
8744 3 
6745 3 
8746 — 
8747 071416 BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
071416 76.15: 
071416 104402 TRAP C$8Su8 
8748 071420 005037 072300 CLR T26CNU sCLEAR OUT yo 
8749 071424 004737 075040 JSR PC, T26REST sSET COMMAND PACK 
8750 071430 004737 075132 JSR PC, T26RT2 sSET UP OTHER p+ PACKET 
tt 071434 004737 075174 JSR PC, T26RTS 3SET UP OTHER COMMAND PACKET 
ak FECES EEEESESESSAEHESESHOESEEEEEHEEESOESEEEESESHOSESESERESEESESEEEEESS 
$ 
Ae ;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY GIT CLEAR IF ERROR 
3 
ree { SORESSSEESESESESSESESSESESESESESESESEEEESEEESESESEEEEEEEESEEESEEEE 
8759 071440 004737 016064 JSR PC, SOF INIT 300 INITIALIZE CONTROLLER 
8760 071444 103407 BcSs 20% ;6R IF INIT WAS OK 
8761 071446 005237 002212 INC FATFLG sBUMP COUNT 
8765 071452 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 


8766 071454 





ERRDF ERRNO, SFIERR, SFIMSG SFATAL ERROR TSSR WAS NOT OK 


TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 


071454 104455 
071456 001345 
071460 003650 
071462 012124 


8767 071464 013737 002172 072140 20%: MOV 


6769 071472 012704 072120 


8777 071476 004737 010752 
8779 071504 005237 002212 


8805 
8806 
8807 
8806 
6809 


6610 

6811 071562 013701 072150 
88612 071566 010102 

6613 071570 052702 000002 
6814 071574 020102 

6615 071576 001406 


MACRO M1113 14-JUN-84 14:17 


TRAP 
- WORD 
. WORD 
UNITN, T260SW 
MOV @T26PACKET ,R4 
{POOP ASEERESEEEEESESEEEEESEEEEESEEESESEODEESEEREEEESEEEEESEESEEEEES 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


; 
J SSSSSNSSSSSSSSSSSSHSSSSSSSSSSHHSSSSESHESSSSSHESHSSSSSSESSSESESSESEEEEES 


sSET UP UNIT NUMBER 


JSR PC ,.WRTCHR sISSVE WRITE CHARACTERISTICS 

BCS 25% sBR, IF COMMAND ISSUED OK 

INC Ae sBUMP COUNT 

MOV RO,R sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO, WRTMSG , SF IMSG sWRITE CHARACTERISTISC i» 
. WORD 
- WORD 
~WORD 

25%: CKLOOP sLOOP IF SELECTED 

TRAP 


F SSSSSSSSSSSSSSSSSSHSSSSHSSSSSSSSSHSSSHSSHSSSSHSESSSESSSESESHSSESEE 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


° 
FEMERSSALAR SHES HRHESHOKSHHASASHSEARAAEHAHREAASHHAKHRAEHSEHASHEEAESHE HHS HHS 


26%: JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
MOV TSSRCRS),R1 ;GET TSSR 
MOV @SSR ,R2 :SET 4 oe ee TSSR 
BcsS 30% ;8R, IF NO PROBLEM 
MOV RO ,R4 sPACKET ADORESS SET UP 
INC FATFLG s;BUMP COUNT 
ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED a 
. WORD 
- WORD 
. WORD 
308: CKL.00P sLOOP IF SELECTED 
TRAP 


{ SSSSSSSHESSSSSHSSSSSSSSSESHSSSHSSSSSSESSSHSSSSEEHESSSSSSSSSESSSHSESEEESS 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


; 
{ SSSSSHSSSSSESSSSSSSHSSASESSSSSSSSHHSESSEHESSSSSSSESSSESSESEEOEEEEEEES 


MOV T26BFR+6,R1 ;PICK UP XSTO 

MOV R1,R2 ;SET UP EXPECTED 

BIS @B8IT1,R2 ;SET BOT BIT IN EXPECTED 
CMP R1,R2 ;DOES EXP = REC'D 

BEG 40% ;B8R, IF EQUAL (OK) 


; SUBROUTINE NEEDS PACKET ADDRESS 


SEQ 0270 


CsCLP1 


CSERHROD 
743 

T26RWN 
PKTSSR 


CsCLPl 


a ee Ce + 


TSv? 


Te 


Vv = 

st 6 
8816 
8820 


: RERE 


071600 
071604 
071604 
071606 
071610 
071612 
071614 
071614 


071616 


071654 
071660 
071664 


8852 071666 


071672 
071674 
071700 
071700 
071702 
071704 
071706 
071710 
071710 
071712 
071720 
071724 


HARDWARE TESTS 1-6 
ADS 


005237 
104456 
001350 
073315 
015564 


104406 


012703 


002212 


003114 072252 


072300 


MACRO M1113 


Me, 


14-JUN-84 14:17 SEQ 0271 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, 126807 .EXPREC ;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 744 
. WORD T2660T 
-WORD EXPREC 
40$: CKLOOP 
TRAP CS$CiL Pi 
j POORER ESEEREEEESESESEESEEESEERESEEEEEEEEREESEESEESESESEEE SEES SEES 
;ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
;BIT 15 SETS DIRECTION - O=FORWARD 1*REVERSE 
j OOCSAEESESEEEEESSESESSSSEESEESEEEEEERESESEEROERESESEESESESESESEEEES 
MOV #000001 ,R3 ;SET UP SPACE FORWARD 1 RECORD 
JSR PC, SPACE s ISSUE SPACE COMMAND 
BcSs 75% ;BR, IF OK 
MOV TSSRCRS),R1 :;GET STATUS DATA 
MOV RU, RS :GET PACKET ADORESS 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, TOSWDE ,.PKTSSR ;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 745 
. WORD T 
.WORD PKTSSR 
75%: CKLOOP ;L00° IF SELECTED 
TRAP CsCLPl 
j OOCOSSSSSEEEEESEEEEESEESESES. SeEeEeeeseseseseseseseseseseoeeeooes 
; ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
;BIT 15 SETS DIRECTION - O=FORWARD 1 =RE VERSE 
j OOOO SSS OSS EEEESEESESSESSSESSESESEESESESSEEEESESEEESEESEOEESESEEES 
MOV #100001 ,.R3 ;SET SPACE REVERSE 1 RECORD 
JSR PC . SPACE ; ISSUE COMMAND 
BcSs 1758 :GO ON IF ALL IS WELL 
MOV TSSRACRS),.R1 ;GET TSSR CONTENTS 
MOV RO ,R4 ;SET UP EXPECTED (PACKET CONTENTS) 
INC FATFLG ;BuPP COUNT 
ERRHRD ERRNO, T26WDE ,.PKTSSR ;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHROD 
.WORD 746 
-worp Tf 
.WORD PKTSSR 
175s: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLPl 
"Ov FREE , T26R8 ;ADORESS OF BUFFER 
TST T26CNU ;CHECK FOR TIMES THROUGH HERE 
BEQ 1768 ;BR, IF FIRST TIME THROUGH 


§ SSSSSSSSSSSSHSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSEESE 


;REREAD (PREVIOUS), IE.ACK,OPP=1 CMD. 


SEG 9272 


TSV? - MARDWARE TESTS 1-8 MACRO M1113 14 JUN 934 14:17 
TES’ 6: REREADS 

866" ; 

AaeR {OSS SOSS + SHCSSSSSSSSSSSSSSSSSSSSSESESSESSSSEESEESSEEEESESESEEEEESEEEEEEEE 

6869 

6870 071726 012737 161001 072250 MOV #161001, T26PK? ;REREAD (PREVIOUS), IE, ACK,OPP=1 CMD. 

887: ©71734 000403 BR 1788 :SKIP NEXT COMMAND 

7 

pedi | OCOOCOOESSSEESESSEEESEEESSEEESEEESESEEEESEOEESESEEESESESESSESESEEES 

8874 ; 

6875 ;REREAD ,ACK,OPP=1 COMMAND 

76 3 

ote {POSSESSES OSESESEHESSESEESEESSEESEESSEESESESOESESESESESESESEEEES 

8878 

6879 071736 012737 141001 072250 176%: MOV #141001, T26PK3 sREREAD ,ACK,OPP=1 COMMAND 

8880 071744 1788: 

68661 071744 012704 072250 MOV @T26PK3 ,R4 ;SET UP R4 WITH PACKET ADDRESS 
071750 010465 000000 MOV R4, TSDOBCRS) sISSUE COMMAND 

6683 071754 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 

68684 071760 016501 9000002 MOV TSSR(RS),R1 ;GET TSSR CONTENTS 

6885S 071764 012702 100204 MOV @SSR!SC!BIT2,R2 :SET UWP EXPECTED 

88686 071770 020102 CMP R1,R2 ;ARE THEY EQUAL 

6887 071772 001406 BEQ 160% ;BR, IF OK 
071774 005237 002212 zi FATFLG ;BUMP COUNT 

8892 072000 ERRHRD ERRNO, T26WDE .PKTSSR ;TSSR INCORRECT AFTER READ DATA 
072000 104456 TRAP CSERHRD 
072002 001353 -WORD 747 
072004 073243 -WORD T26WDE 
072006 012136 WORD PKTSSR 

8893 072010 180$: CKL.OOP ;LO0P IF SELECTED 
072010 1 TRAP CSCLP1 

8894 072012 013701 072156 MOV T26SFR+14,R1 ;GET XST3 STATUS WORD 

8895 072016 010102 MOV R1,R2 ;SET UP EXPECTED 

8896 072020 0527 000001 BIS @BITO,R2 ;SET THE NEF BIT 

8897 072024 020102 CMP R1,R2 ;ARE THEY EQUAL 

8896 072026 001406 BEQ ;B8R, IF EQUAL (GOOD) 

8899 072030 005237 002212 INC FATFLG 3 COUNT 

8903 072034 ERRHRD ERRNO, T26NEF ,EXPREC sNEF SHOULD BE SET 
072034 104456 TRAP CSERHRO 
072036 001354 -WORD 748 
072040 072374 .WORD T26NEF 
072042 015564 WORD EXPREC 

8904 072044 190%: CKLOOP 
072044 TRAP CSCLP1 

8905 072046 005137 072300 COM T26CNU ;SET SWITCH THE CTHER WAY 
072052 BNE 26$ ;BR, IF FIRST TIME THROUGH 

8907 072054 ENOSUB 3 >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
072054 L10121: 
072054 104403 TRAP CsESuB 

8908 072056 023727 002212 000017 CMP FATFLG,@15. :IS ERROR COUNT AT 25 

909 072064 103402 BLO 999% :BR, IF LESS THAN 25 

8910 07 004737 017272 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 

8911 072072 999$ 

8912 3 

6913 3 

8914 3 

8915 072072 004737 016546 JSR PC, TSTLOOP :00 WE NEED TO ITERATE TEST 

8916 072076 103002 BCC 163$ :BR, IF NO LOOP REQUIRED 

8917 072100 000137 055710 JMP T26LO00P sEXECUTE AGAIN 


Be 


TSV7? - HAROWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 0273 
TEST 6: REREADS 
8918 072104 1638: 
8919 072104 EXIT TST sALL DONE THIS TEST 
072104 104432 TRAP CsExIT 
072106 003116 -WORD 110102-. 
8920 
6921 3° 
8922 sLOCAL STORAGE FOR THIS TEST 
8923 s- 
@925 072110 -BLKB 10-<., -TSV2E7> 
8927 072120 T26PACKET: sCOMMAND PACKET FOR TEST 
6928 072120 014004 . WORD 14004 iWRITE CHARACTERISTICS COMMAND, WITH CvC-1. ACK 
6929 072122 072130 WORD T26DATA sADORESS OF CHARACTERISTICS BLOCK 
8930 072124 000000 -WORD O 
8931 072126 000012 . WORD 10. sSTARTING VALUE OF BLOCK SIZE 
86932 072130 T26DATA: sCHARACTERISTICS DATA BLOCK 
6933 0721380 072142 . WORD T26BFR sADORESS OF MESSAGE BUFFER 
86934 072132 000000 -WORD O 
8935 072134 000024 -WORD 20. sLENGTH OF MESSAGE BUFFER 
8936 072136 000000 -WORD O 
8937 072140 000000 T260SW: .WORD 0 sSELECT DRIVE O 
tees 072142 T26BFR: .BLKW 25. sMESSAGE BUFFER 
3 
se | ;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
1 3 
8943 072224 -BLKB 1¢-<.,-TSW2E7> 
8945 072230 T26PK2: 
8946 072230 100006 WORD 100006 sWRITE SUB SYS MEM COMMAND, AND ACK 
6947 072232 072260 T26B8F 2 sADORESS OF SELECT BLOCK DATA 
072234 000000 WORD 0 
8949 072236 000006 WORD 6. sSIZE OF DATA PACKET 
8952 072240 -BLKB 10-<. -TSV2E7> 
6954 072250 T26PK3: 
8955 072250 140005 WORD 140005 sREREAD COMMAND. CVvC=1 AND ACK 
8956 072252 T26RB6 
8957 072252 003114 T26N8 : FREE sADORESS OF WRITE BUFFER 
8958 072254 000000 WORD 0O 
8959 072256 000000 T26SZ WORD 0 ;SIZE OF BUFFER (EXTENT) 
B30 VEN 
8961 3 
8962 3 
8963 5 
8964 072260 T266F 2: 
8965 072260 010 T268S0: .BYTE 10 sBSELO AREA 
8966 072261 200 T268S1: .BYTE 200 sB6SEL1 AREA 
8967 000000 7T26S2: . 0 sSEL 2 AREA 
8968 072264 000000 12683: .WORD O ;DATA AREA 
8969 3 
8970 
6971 -EVEN 
oot sTAPE MOTION PACKET COMMAND VALUES 
6974 072266 140001 T26RN: .WORD 140001 sREAD DATA 
86975 072270 141401 . WORD 141401 sREREAD NEXT OPP=0 
8976 072272 161401 -WORD 161401 sREREAD NEXT OPP =1 
. WORD 177777 sEND OF DATA 


8977 072274 177777 
8 


- WARDWARE TESTS 1-8 


test “6: REREADS 
8979 
8980 072276 000000 
te 072300 000000 
8983 072302 000000 


6984 
8985 072304 000000 


9033 075044 012701 
9034 075050 012721 
9035 075054 012721 


072120 
140004 
072130 


MACRO M1113 


; 
T26CNT: 


T26CNU: é 
T26RSZ: . 


T260LY: 


14-JUN-84 14:17 


sTAPE RECORD COUNTER STORAGE AREA 
s TAPE RECORD COUNTER STORAGE AREA 


sRECORD STORAGE SIZE AREA 
sDELAY COUNTER AREA 


o o oo 


2° 
sLOCAL TEXT MESSAGES FOR TEST 


T26NEQ: 
TST26I0: 


3° 


‘aro bavio Incorrect After REREAD Previous (O0PP=1)' 
PREVIOUS, At BOT, fet To Set NEF (xSTO)’ 
‘TSSR Incorrect After READ DATA Command’ 


"REREAD Previous (Spece Reverse, Reed Forwerd) Command Fai led’ 
"REREAD Previous (Reed Reverse, Spece Forwerd) Commend Fai ied’ 


‘POSITION (Spece Commend) Failed, TSSR Not Correct’ 
‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 

TSSR Not Correct After Illegal Mode Bits Set’ 
‘Tegal Mode Bits, Feiled To Set ILC 8: t In xSTO’ 


Not Accepted’ 
‘TSSR Not Correct After WRITE DATA Commend’ 
‘Tape Not At BOT After REWIND Commend’ 

‘Dete Written To Tape Not Equel To Dete Read From Tape’ 
"REREAD DATA OVER E ed GAVE NO TAPE STATUS ALERT’ 
‘TSSR Not Correct After REREAD COMMAND Re ject’ 

"Rewind (POSITION) Commend Not Accepted’ 

"RAM Error, Correct Dete Pettern Not In Ran’ 

*TSSR Init. Failed After REREAD COMMAND’ 

‘Orive 7 Select Feiled To Set “OFL” In TSSR’ 

‘TSSR Not Correct aoe REREAD abe Commend, SWB Bit Set’ 


Reset VCK In neonege Buffer’ 
‘TSBA Not Correct After REREAD DATA Commend’ 

MEMORY Commend Not t Accepted = Reed)’ 
‘Reading —s Record Feiled To Set ALL Bit In xXSTO 
‘Reading L Record Feiled To Set ALS Bit In xSTO’ 
*Residuel Byte Count Incorrect After Short Record Read’ 
‘Reedi Lene Record Feiled To Give Tepe Stetus Alert’ 
‘Dete AD From Tepe Not Correct, After SWB-1' 


; 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 


sSAVE THE REGISTERS 


@T26PACKET ,R1 sSTART OF THE PACKET 
#140004 ,(R1)> sWRITE SUBSYSTEM MEM. WITH ACK, CvC=1 
@T26DATA,(R1)+ sRDORESS OF CHARAISTICS DATA BLOCK 


SEQ 9274 





TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 


000012 
072142 
000024 


30 
177777 


MACRO M1113 


072142 


002170 


64%: 


T26RT2: 


T26RTS: 


4 


-SBTTL TEST 7: WRITE DATA RETRY 


D6 


14-JUN-84 14:17 


@T26PK2 ,R1 
#140006 ,,(R1)-+ 
@T268F2,(R1)> 


sEXTENDED ADORESS 
sSIZE OF DATA BLOCK IN erres 
sADDRESS OF MESSAGE BUFFE 


sLENGTH OF MESSAGE BUFFER 


;SELECT ORIVE ZERO (0) 

sNUMBER OF LOCATIONS TO oa. CLEARED 
yALL ONES TO MESSAGE BUFFE 

sNEXT LOCATION 

sCHECK FOR END OF LOOP 

iKEEP GOING UNTIL DONE 

sRE TURN 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK,CvC-1, 
sADDRESS OF DATA BLOCK 

sEXTENDED ADORESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


sRETURN 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 


sADORESS OF DATA BLOCK 


sEXTENDED ADORESS 
;SIZE OF DATA BLOCK IN BYTES 
sRETURN 


L1010e2: 
TRAP 


;THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
sCOMMAND (SPACE REVERSE, ERASE, 


WRITE DATA) 


+ THE TEST CONSISTS OF THE FOLLOWING 5 SUBTESTS 


#EPRT2 ,EPRTSW 
KTENABLE 


oKTOFF 
@TST27ID,RO 


s SECONDARY —— THE SSAGE 


Til 
s TURN KT11 BACK OFF IF THERE 
sASCIT MESSAGE TO IDENTIFY TEST 


! 
sWRITE SUBSYSTEM MEM. WITH ACK, 
CseTsT 


TSV7? - HARDWARE TESTS 1 MACRO M1113 14-JUN-84 14:17 SEQ 9276 
TEST “Ts WRITE DATA RETRY 
9094 075250 004737 016600 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
9095 075254 012737 000005 002206 MOV #5 ,LOOPCNT sPERFORM 5S ITERATIONS 
9096 075262 005037 102126 CLR T27CNT sCLEAR TAPE RECORD COUNTER 
9097 3° 
9098 : 
9099 sTCST 7, SUBTEST 1 
Mp 3 
1 : 
9102 sVERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE 
9103 sTHE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
9104 3 TERMINATION, nen THE NON-EXECUTABLE FUNCTION (NEF ) 
9105 sERROR BIT SET 
9106 i 
9107 ; 
9108 ii 
9109 
9110 075266 T27LO0P: 
9111 075266 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
075266 77.1: 
075266 104402 TRAP Cs6SuUB 
9112 075270 004737 105104 JSR PC, T27REST 3SET COMMAND PACKET 
9113 075274 004737 105176 JSR PC, T27RT2]) }SET UP OTHER COMMAND PACKET 
9114 075300 004737 105240 JSR PC, T27RT3 sSET UP OTHER COMMAND PACKET 
9115 075304 012737 176750 102132 MOV #65000. . T27D0LY sSET UP DELAY COUNTER 
Mo 075312 005037 102126 CLR T27CNT sCLEAR COUNTER 
1 
9118 PeTP TET Titi rrr rir iriiiiitivitiiiitritiiisyiiit ii iiiiitiiitt 
9119 3 
ar 4 sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
1 F 
9122 J SOSSASSESSHSSNSSSSSSSSHAHASHSESEHAESSEEEEEEHEHESEEEHEEHEEEEHHEEEOEESE 
9123 
9124 075316 004737 016064 108: JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
9125 075322 103426 6cs 20% s6R IF INIT WAS OK 
9126 075324 DELAY 250 sDELAY ABOUT .25 SEC 
075324 012727 000250 MOV @250,(PC)+ 
075330 000000 -WORD O 
075332 013727 002116 MOV LSOLY,.C(PC)>+ 
075336 000000 -WORD O 
075340 005367 177772 DEC — 
075344 001375 BNE 
075346 005367 177756 DEC "32ceC) 
075352 001367 BNE .-20 
9127 075354 005337 102132 DEC T27D0LY sBUMP COUNTE 
9128 075360 001356 BNE 10% _ IF COUNTER NOT DONE 
9129 075362 005237 002212 INC FATFLG 
9133 075366 010001 MOV RO,R1 I CONTENTS OF TSSR REGISTER 
9134 075370 ERRDOF  #ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
075370 104455 TRAP CSERDF 
075372 001275 . WORD 701 
075374 003650 . WORD SFIERR 
075376 012124 -WORD SFIMSG 
9135 075400 013737 002172 101770 20%: MOV UNITN, T270SW sSET UP DRIVE NUMBER 
te 075406 012704 101750 MOV @T27PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
9138 PUTT ITI itr iri tit iitiiiitii rit iiititiititiiitiitiititt 


9139 3 


TSV7 - HARDWARE TESTS 1 


TEST 7: WRITE DATA RETRY 


004737 
103407 
005237 
010001 


104456 
001276 
005054 
012124 
104406 


013701 
010102 


104406 
012737 
013737 


010752 
002212 


011104 


002212 


002212 


000400 102106 
003114 102102 


-8 MACRO M1113 


FG 


14-JUN-84 14:17 


s;WRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


3 
FERSASHSSNHSSASSAHAESESSSEHEASHAAESSESESEHESESEHEESEOASESHEHESESSHEEEEEEEEEED 


25%: 


MO 
ERRHRD 


CKLOOP 


PC, WRTCHR 

253 

FATFLG 

RO R1 

ERRNO, WRTMSG , SF IMSG 


s ISSUE WRITE than a 
sBR, IF © SUED OK 
sBUMP C 


3 SAVE CONTENTS OF TSSR 
SWRITE CHARACTERTSTISC —s 


. WORD 
. WORD 
. WORD 


TRAP 


;LOOP IF SELECTED 


J SSSSASSSSSSASSASSSHHAHESSHESSSSSSSHESESSESESEEESSESSHSESHEEESEHESESE 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


é 
J SSSHASASHSSSSSSSSSSSSSESSHSSSEHSSSHESSSHSSHSEHSESESHESESSHESSSEHESEESESEYE 


308: 


JSR 
BCS 
MOV 


INC 
ERRHRD 


CKLOOP 


PC ,REWIND 
30% 


RO,R4 
FATFLG 
ERRNO, T27RWN,PKTSSR 


sCALL TAPE a. COMMAND 
sB8R, IF NO PROBLEM 
:SET UP REWIND PACKET ADDRESS 
; BUMP COUNT 
} REWIND NOT ACCEPTED 

TRAP 


sLOOP IF SELECTED 


§ SSHSSESSSSSSSSSHSSSESSSSSSSSESESSSSESHESESSSEHSESESSESEHESESEESEHESEES 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
J SSSHHSHSSHASSSSSSSSSHASSHSSSHSSHSSSESEHASSSOSSHSSESHSESSESSEHHHSESEEESEES 


40%: 


CKLOOP 


MOV 
MOV 


T27BFR+6,R1 
R1,R2 
ye 


40% 
FATFLG 
ERRNO, T27B0T , EXPREC 


#256. ,T27SZ 
FREE , T27WB 


sPICK UP XSTO 
;SET UP EXPECTED 
iSET BOT BIT IN oo 


3 
;TAPE NOT AT BOT AFTER Hy 


;LOOP IF SELECTED 


TRAP 
sSET UP RECORD SIZE 
sADORESS OF WRITE BUFFER 


f PSSEEHSESHEESSEESEEESESESHESEESESOHRESSSESEESASHESEHEEESESEERESEEAES 


SEQ 0277 


CSCLP1 


CsCLP1 


CSERHROD 
704 


T27B0T 
EXPREC 


CsCLP1 


TSv7 


TS 


012737 


013701 
010102 
02 


- HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 


141005 
102100 
000000 
016340 
000002 
100206 


002212 


002212 


002212 
017272 


102100 


000017 


G6 


MACRO M1113 14-JUN-84 14:17 SEQ 0278 
; 
sWRITE DATA RETRY,ACK,CVC*1 COMMAND 
; 
jPROOAAREAERESESEEEEEEERESEEEEESERERERESRESEREEEEDEEOEERESEESESEES 
MOV #141005, T27PK3 sWRITE DATA RETRY,ACK,CVC=1 COMMAND 
MOV @T27PK3 ,R4 sSET UP R4 WITH PACKET ADDRESS 
MOV R4, TSOB(RS) s ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSR(RS).R sGET TSSR CONTENTS 
MOV oSSR!SC 16171 !81T2, R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ site sBR, IF OK 
INC FLG sBUMP COUNT 
ERRHRD ERRNO. T27WOE , PKTSSR ;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 705 
-WORD T27WDE 
-WORD PKTSSR 
7S$: CKLOOP sLOOP IF SELECTED 
TRAP CsCLPi 
sPORSSERERERERERERSEEREREDESESEDESEDESEEEESEEESESESESEEEEEEEEEEEEES 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
; 
j POAOSESEESESESOSSESEREESEEEEDEEDEESEEEESEESEEEEEEEEEEEEEEESESEES 
MOV T27BFR+6,R1 GET XSTO STATUS WORD 
MOV Ri ,R2 sSET UP EXPECTED 
BIS #BIT10,R2 sSET THE NEF BIT 
CMP R1,R2 sARE THEY EQUAL 
BEQ 170% s8R, IF EQUAL (GOOD, 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T27NEF ,EXPREC sNEF SHOULD BE SET 
TRAP CSERHRD 
-WORD 706 
-WORD T27NEF 
-WORD EXPREC 
170%: CKLOOP 
TRAP CsCLP1 
ENDSUB 
L10123: 
T CsESuUB 
CMP FATFLG,@15. sIS ERROR COUNT AT 25 
BLO 999% 3BR, IF LESS THAN 25 
ene JSR PC ,CKDROP sTRY TO DROP THE UNIT 


3° 
5 

sTEST 7, SUBTEST 2 

‘ 

s VERIFIES pg | DATA RETRY COMMAND ISSUED — 


s TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS 


TSV7 - 


HARDWARE TESTS i-8 
TEST 7: WRITE DATA RETRY 


105104 
105176 
105240 


016064 
902212 


002172 
101750 


010752 
002212 


011104 


101770 


He, 


MACRO M1113 14-JUN-84 14:17 SEQ 90279 
sERROR BIT SET. 
Q 
; 
; BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>»> 
17.2: 
TRAP C$6SUB 
JSR PC, T27REST sSET COMMAND PACKET 
JSR PC, T27RT2 sSET UP OTHER COMMAND PACKET 
JSR PC, T27RTS sSET UP OTHER COMMAND PACKET 
FFSSAHSSASSSSEHASSSSSESSSEHEHSESESSOSSESSESSHAEESSESEHSAEEEHEEEEEHEESEEEESESEEE 
a 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
_ JiadannnnnIelmnNNNNENEReRONeRENNRNEneEReeneENE. 
JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
BCS 20% s6R IF INIT WAS OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERRDF ERRNO,SFIERR,SFIMSG IFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
. WORD 707 
-WORD SFIERR 
SF IMSG 
20$: MOV UNITN, T270SW ;SET UP DRIVE NUMBER 
MOV @T27PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
LAE E ERA SEERELAEASHEAKKAHRARSASEERKERBHRAVCEEAKKHAEMREHEREKERERE SREB EEE 
3 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
 senaamennieasenmenenenieennennenseeeeneeeenenennnennnens 
JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
BCS 25% ;8R, IF COMMAND ISSUED OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 706 
-WORD WRTMSG 
-WORD SFIMSG 
25%: CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 


Fs SSSSSSSSSSSSSSSESSSEASHSSHSSHEHSESESSSSESASSHESSHSSEHSEESHHSSESAEEE 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


é 
§ SSSSESESSESSSSSESSSSEHSSSSSSSESSHSESSSHSESAESSESSHSESHESHSESHHREHESEESEEOD 


JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
BCS 26% sBR, IF NO PROBLEM 
MOV RO,R4 SET UP REWIND PACKET ADDRESS 





16 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 0280 
TEST 7: WRITE DATA RETRY 
9294 075776 016501 000002 MOV TSSRCRS),R1 :GET TSSR CONTENTS 
9295 076002 005237 002212 INC FATFLG ;BUMP COUNT 
9299 076006 ERRHRD ERRNO, T27RWN,PKTSSR sREWIND NOT ACCEPTED 
076006 104456 AP CSERHMRD 
076010 001305 . WORD 709 
076012 103305 . WORD T27RWN 
076014 012136 . WORD PKTSSR 
9300 076016 26%: CKLOOP ;LOOP IF SELECTED 
076616 104406 TRAP CSCLPl 
9301 076020 012703 000400 MOV 0256. ,R3 sSTARTING RECORD SIZE 
9302 076024 013737 003114 102102 MOV FREE, T27WB : STARTING WRITE BUFFER ADDRESS 
9303 
9304 J PRAREKAHSEHESASEASESESEEEHOAEASEESAEEEAEREEEEEESERSREOREOSEDESEEEE 
9305 : 
coer sWRITE DATA,CVC=1,ACK COMMAND 
9 H 
9308 FSESASAASAAHSSESAESESSASSARSASEAEESASESEEEAESEASESEESEEEEESESEEESEESOEES 
9310 076032 012737 140005 102100 MOV #140005, T27PK35 sWRITE DATA,CVC=1,ACK COMMAND 
9311 076040 012704 102100 MOV @T27PK3 ,R4 3SET UP R4 WITH PACKET ADDRESS 
9312 076044 010337 102106 MOV R3,T27SZ 3SET UP RECORD SIZE IN PACKET 
9313 076050 010465 000000 MOV R4, TSOBCRS ) sISSUE COMMAND 
9314 076054 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 
9315 076060 016501 000002 MOV TSSRCRS),R1 sGET *SSR CONTENTS 
9316 076064 012702 000200 MOV @SSR,R2 sSET UP EXPECTED 
9317 076070 020102 CMP R1,R2 sARE THEY EQUAL 
9318 076072 001406 BEQ 28$ 3;BR, IF OK 
9319 076074 005237 002212 INC FATFLG sBUMP COUNT 
9323 076100 ERRHRD ERRNO,WRTERR,PKTSSR :TSSR INCORRECT AFTER WRITE DATA 
076100 104456 TRAP cs 
076102 001306 -WORD 710 
076104 005111 . WORD WRTERR 
076106 012136 . WORD PKTSSR 
9324 076110 28%: CKLOOP 3;LO00P IF SELECTED 
076110 104406 TRAP CSCLP1 
— FPOSSSSSSHSHSHSSSASAASESASSHSESAHSSEESSSEASEESESESSHEESEERESESEEDEE 
7 ; 
os sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
H 
nny § SRSS ASHEKESSAESESSSSESSESESEESSOESASESESALESESEEEESSESESEESESEEEEEESES 
1 
9332 076112 004737 011104 JSR PC ,REWIND a TAPE REWIND COMMAND 
9333 076116 103411 Bcs 30% NO PROBLEM 
9334 076120 016501 000002 MOV a te R1 iGET TSSR CONTENTS 
9335 076124 010004 MOV RO,R 3SET UP REWIND PACKET ADDRESS 
9336 076126 005237 002212 INC FATF: UG iBUMP COUNT 
9340 076132 ERRHRD ERRNO, T27RWN,PKTSSR S REWIND NOT ACCEPTED 
076132 104456 TRAP CSERHRD 
076134 001307 . WORD 711 
076136 103305 . WORD T27RUN 
076140 012136 .WORD PKTSSR 
9341 076142 30%: CKLOOP ;LOOP IF SELECTED 
eens 076142 104406 TRAP CSCLPi 
9343 FPRSSESEEESEASEEESESEESEEEEERESEEEEEESESESEESSEEEEEESESEDEEASERESEEES 


9344 F 


TSV7 - HARDWARE TESTS 1 


TEST 7: WRITE DATA RETRY 


| 076176 


é 
°o 
3 


: 
Ss 
: 


9398 076272 
076272 
076274 


013701 
2 


012703 
004737 


002212 


J6 


MACRO M1113 14-JUN-84 14:17 SEQ 0261 


s;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


3 
FRSAAESHSAASHHSHSSESEAAAEEEHEHEHESEESHESESERESCAEESEAEEEHEEEEEEESHEEEEEHEHEEE 


MOV T27BFR+6,R1 sPICK UP XSTO 

MOV R1,R2 sSET UP EXPECTED 

BIS @BIT1,R2 sSET BOT BIT IN EXPECTED 

CMP R1,R2 s;D0ES EXP = REC'D 

BEQ 40$ BR, IF EQUAL (OK) 

INC FATFLG BUMP COUNT 

ERRHRD ERRNO, T27B0T ,EXPREC ; TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 712 
-WORD T27B0T 
-WORD E 

40$: CKLOOP sLOOP IF SELECTED 


TRAP CSCLP1 
J PPREEEEEESEEESEESESEESED*EORSEEESESESESEEESES ESSERE ESESEEEEEEES 


ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
:8IT 1S SETS DIRECTION - O=FCRWARD 1=REVERSE 


easeonsoooonssennensesonnnonesenenoeenessononesesooeeonose++essees 


MOV #1,R3 sPARAMETER SPACE FORWARD 1 RECORD 

JSR PC, SPACE sCALL SPACE RECORDS ROUTINE 

BCS 50$ sB8R, IF NO ERRORS 

MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

MOV @SSR ,R2 sSET UP EXPECTED 

MOV RO,R4 ;SET UP REWIND PACKET ADDRESS 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T27SCF ,PKTSSR SPACE RECORDS COMMAND FAILED 
TRAP CSERHRD 
-WORD 713 
-WORD T27SCF 
-WORD PKTSSR 

S0$: CKLOOP ;LOOF IF SELECTED 


TRAP CsCLP1 
fPORESEHEESESEEESSESESSSSEEESEEESSSESESSEESESSEESSSESESEEEESESEDESESE 


S ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
sBIT 15 SETS DIRECTION - O=FORWARD 1=REVERSE 


3 
PSHaSEHHASHHEHHHHEHSHSHEHEHAKREHEEAERHEHESAAAREEHEEHAHEEESEAEERHEERAHREDDE 


MOV #100001 ,R3 sPARAMETER SPACE REVERSE 1 RECORD 


JSR PC, SPACE sCALL SPACE RECORDS ROUTINE 
BCS 60% 3BR, IF NO ERRORS 

MOV TSSRCRS),R1 sGET TSSR oe 

MOV @SSR ,R2 sSET UP EXPECTED 

— RO,R4 sSET UP 1 PACKET ADDRESS 


NC FATFLG sBUMP C 
ERRHRD ERRNO, T27SCF ,PKTSSR | SPACE RECORDS COMMAND FAILED 
TRAP eee 


TSV7 - HARDWARE TESTS 1-8 
DATA RETRY 


TEST 7: WRITE 


9408 076312 


104547 
012136 


104406 
013737 


012737 


003114 


141005 
000400 
102100 
000000 
016340 
000002 
100204 


002212 


002212 


002212 
017272 


K6 


MACRO M1113 14-JUN-84 14:17 


102102 


102100 
102106 


000017 


€98: CKLOOP 
MOV FREE, T27RB 


SEQ 0282 


-WORD T27SCF 
-WORD PKTSSR 


TRAP CSCLP1 


sLOOP IF SELECTED 
sADDRESS OF BUFFER 


J SSSSSHAHASHASSSSASSESESAASSESEHEESEHKESSESEESEEEEESESEASEEEEEEEEEEOESD 


;WRITE DATA RETRY,ACK,CVC=1 COMMAND 


3 
J SSSHASASSHSSSSAESSSSSESAESESSHEEKESSEEEKESSESSESEEESEASEEHESESSESEEEEEESS 


MOV #141005, T27PK3 

MOV 256. ,T27SZ 

MOV @T27PK3 ,R4 

MOV R4, Ts08¢ RS) 
PC ,WAITF 

MOV TSSR(RS), 


Ri 
MOV @SSR!SC!8I1T2,R2 
CMP R1,R2 


FATFLG 
ERRHRD ERRNO, T27TSA,PKTSSR 


160%: CKLOOP 
MOV T27BFR+14,R1 
MOV R1,R2 
BIS @BITO,R2 
CMP R1,R2 
BEQ 190 


FATFLG 
ERRHRD ERRNO, T27NEF ,EXPREC 


CMP FATFLG,@15. 


999% 
JSR PC ,CKDROP 
999%: 


;* 


; 
sTEST 7, SUBTEST 3 


sWRITE DATA RETRY,ACK,CVC=1 COMMAND 
sSET UP THE SIZE OF RECORD 
sSET UP R4 WITH PACKET ADDRESS 


ISSUE COMMAND 
sWAIT FOR SSR oat SET 


sARE THEY EQUAL 


sBR, IF a 
sBUMP C 
sTSSR SNCORRECT AFTER — Byes 
CSERHRD 
"WORD 15 
. WORD T27TSA 
-WORD PKTSSR 


sLOOP IF SELECTED 


sGET XST3 STATUS WORD 
3;SET UP EXPECTED 
s;SET THE RIB BIT 
sARE THEY EQUAL 


TRAP CsCiP1 


COUNT 
sNEF SHOULD BE SET 
TRAP CSERHRD 
. WORD 


716 
WORD T27NEF 
WORD EXPREC 


TRAP CSCLP1l 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


10124: 
TRAP CsESUB 
sIS ERROR COUNT AT 25 
3BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


| VERIFIES THAT A WRITE DATA RETRY COMMAND WITH SWB-0 
s TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE 
;( THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS 


= 


TSV7 - HARDWARE TESTS i-8 MACRO M1i13 14-JUN-84 14:17 SEQ 0283 
TEST 7: WRITE DATA RETRY 

9447 :BYTE COUNTS AND DATA PATTERNS ARE USED. 

9448 ; 

9449 ; 

9450 : 

9451 }- 

9452 076446 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>»>>>»>>>>> 
076446 Vesa 
076446 104402 TRAP Cs$6SUB 

9453 076450 004737 105104 JSR PC, T27REST ;SET COMMAND PACKET 

3454 076454 006737 105176 JSR PC, T27RT2]) ;SET UP OTHER COMMAND PACKET 

9455 076460 004737 105240 JSR PC, T27RT3 ;SET UP OTHER COMMAND PACKET 

9456 

9457 { SSSSHSSSSSHSSHSSSHSSSSSHHSSHHEESSHSSHESESSESSESEHEESSESEESEEESEEESESHEEE 

3458 H 

oe ; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

9461 WYTTTTTTTITTTITITITITITITITITTTITTTTT TT TTT TTT TTT TTT TTT TTT TTT TTT ty 

9462 

9463 076464 004737 016064 JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 

9464 076470 103407 Bcs 20% 38R IF INIT WAS OK 

9465 076472 005237 002212 INC FATFLG sBUMP COUNT 

9469 076476 010001 MOV RO.R1 S CONTENTS OF TSSR REGISTER 

9470 076500 ERROF ERRNO, SFIERR , SF IMSG sFATAL ERROR TSSR WAS NOT OK 
076500 104455 TRAP CSEROF 
076502 001315 . WORD 717 
076504 003650 . WORD SFIERR 
076506 012124 . WORD SF IMSG 

9471 076510 013737 002172 101770 20%: MOV UNITN, T270SW ;SET UP UNIT NUMBER IN PACKET 

eds | 076516 012704 101750 MOV @T27PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADORESS 

9474 PRSCSSSESGHERESSHESSSERSHOKHSHAERHSSAKHEAHLEARHASEESEARHSHAAHEHEKHAESHEE 

9475 ; 

ots ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

9478 5 Pocoooencnossoooosooosesocosesoesonseenoesososeeeoseeeeeseeeonss 

9479 

9480 076522 004737 010752 JSR PC, WRICHR sISSUE WRITE CHARACTERISTICS 

9481 076526 103407 BcS 23% ;68R, IF COMMAND ISSUED OK 

9482 076530 005237 002212 INC FATFLG sBUMP COUNT 

9486 076534 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

9487 076536 ERRHRD ERRNO,WRIMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
076536 104456 TRAP CSERHRD 
076540 001316 . WORD 718 
076542 005054 .WORD WRTMSG 
076544 012124 . WORD SFIMSG 

9488 076546 23%: CKLOOP ;LOOP IF SELECTED 

9009 076546 104406 TRAP CSsCLPl 

9490 { SSSHSSSSHESSESSHSESSSSESSESSSSSSHSSSESHESSSESASSSHSSSSESSESSESSESESSSSESESES 

9491 ; 

ate ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

9494 s ecccoccccooosoooosonoonsoooeseoseoooeeseeooeeoeseonso‘oooeseeeses 

9495 

9496 076550 004737 011104 JSR PC ,REWIND sCALL TAPE i  B COMMAND 

9497 076554 103407 Bcs 30% :8R, IF NO PROBLEM 


9498 0'6556 010004 MOV RO,R4 ;SET UP REWIND PACKET ADDRESS 


TSv7 


TEST 7: WRITE 


076574 


9512 076576 


949 


TESTS 1 


DATA RETRY 


005237 
104456 
001317 
103305 
012136 


104406 


013701 
010102 


104406 
012703 
013737 


012737 


002212 


002212 


000024 
003114 


M6 


MACRO M1113 14-JUN-84 14:17 SEQ 0284 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T27RWN,PKTSSR sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 719 
. WORD T27RUN 
-WORD PKTSSR 
30$: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
{ SSSSSSSSESSESSESSSSSHESSSSHASSSESSEHSESSSHSSSESSSSSHSESSHSESSESHEEEHEEESSE 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
§ FSSSSSSSSSSSSSSSSSSSESSESSSSSSHESHSSSHESSSESSESSSESSESSSSSESSSSESESESESEEEEEEE 
MOV T27BFR+6,R1 sPICK UP XSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS @BIT1,R2 sSET BOT BIT IN EXPECTED 
CMP R1,R2 ;D0ES EXP = REC'D 
BEQ 40% ;BR, IF EQUAL (OK) 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T27B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 720 
.WORD T27B0T 
-WORD EXPREC 
40%: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
MOV #20. ,R3 sSTARTING RECORD SIZE 
102102 MOV FREE , T27WB ;STARTING WRITE BUFFER ADDRESS 
F SSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSESSSSSSESSSSSSSSSSSSESSESESSEESEES 
;WRITE DATA,CVC=1,ACK COMMAND 
{ SSSSSSSSSSSSHSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSESESSESSESESEEEE 
102100 65%: MOV #140005, T27PKS ;WRITE DATA,CVC=1,ACK COMMAND 
MOV OT27PK3,R4 ;SET UP R4 WITH PACKET ADORESS 
MOV R3, ;SET PATTERN IN CORRECT REGISTER 
JSR PC.FILLMEM sFILL MEMORY WITH RECORD SIZE 
MOV R3,T27SZ ;SET UP RECORD SIZE IN PACKET 
MOV R4, TSOBCRS) ; ISSUE COMMAND 
JSR PC ,WAITF ;WAIT FOR SSR TO SET 
MOV TSSACRS),R1 ;GET TSSR CONTENTS 
MOV @SSR ,R2 ;SET UP EXPECTED 
chp Rl, ;ARE THEY EQUAL 
BEQ 80% ;6R, IF OK 
INC FATFLG ;BUeP COUNT 
ERRHRD ERRNO, WRTERR PK TSSR ;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRO 
-WORD 721 
. WORD WRTERR 
.WORD PKTSSR 
805: CKLOOP ;L00P IF SELECTED 
TRAP CsCL?1 


TSv? 


TEST ?: 


9579 
9580 
9581 


077010 


077012 


012737 


013701 
2 


- HARDWARE TESTS 1-8 
WRITE DATA RETRY 


141005 
000000 
016340 
000002 
000200 


002212 


011104 


002212 


MACRO 1113 


14- JUN 94 


14:17 


;WRITE DATA RETRY,CVC=1,ACK COMMAND 


sWRITE DATA RETRY ,CVC=1,4CK COMMAND 
OMMAND 


102100 


MOV 
MOV 


#141005, T27PK3 


R4 , TSOB( RS) 
PC .WAITF 
TSSRCRS),Ri 
@SSR ,R2 
R1,R2 


90% 
FATFLG 


ERRNO, T27WRF ,PKTSSR 


(R3)-+ 
R3, 040. 
65% 


: ISSUE C 
sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 


§ SSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSHSSSSSSSSHSSSSSSESEESSEEEEESE 


;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


. 
§ SSSSSSSSSSSSSSSSSSHSSSSSSHSSSSESESESSSSSSEHSESSSESSSSESHESSESSEEEESEESES 


230%: 


JSR 
6cs 
MOV 


INC 
ERRHRD ERRNO, T27RWN,EXPREC 


CKLOOP 


PC REWIND 
230% 


RO,R1 
FATFLG 


, COREE REEEREAEEEEKHEREHRAREEERERARECARHKHHREEKESEERARHEAERHAESESHAHRHERESS 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


a 
FSSSSASKSSAASKSSSASESSESSESSSESSSHSSSSSSHSESEESERSSSSESSHKESESSERESERESES 


MOV T27BFR+6,R1 
MOV R1,R2 

BIS #BIT1,R2 
CMP R1,R2 

BEQ 240% 

INC AT 


FATFLG 
ERRHRD ERRNO, T27B0T ,EXPREC 


SEG 0285 


;ARE THEY 

;BR, IF OK 

;BUMP COUNT 

;TSSR INCORRECT AFTER WRITE DATA RETRY 
TRAP CSERHRD 
. WORD 722 
. WORD T27WRF 
-WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 

;BUMP RECORD SIZE COUNTER 

sAT 40 SIZE YET 

:;BR, IF MORE RECORDS TO WRITE 

;CALL TAPE REWIND COMMAND 

;68R, IF NO PROBLEM 

sSAVE TSSR 

;BUMP COUNT 

; REWIND NOT ACCEPTED 
TRAP CSERHRD 
. WORD 723 
"WORD  T27RWN 
-WORD EXPREC 

sLOOP IF SELECTED 
TRAP CSCLP1 

sPICK UP XSTO 

;SET UP EXPECTED 

}SET BOT BIT IN EXPECTED 

;D0ES EXP = REC'D 

BR. IF EQUAL (OK) 

sBUMP COUNT 

} TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 





TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 0286 
TEST Ss WRITE DATA RETRY 
077064 0601324 . WORD 724 
077066 103001 -WORD 127B0T 
077070 015564 . WORD EXPREC 
9605 077072 2408: CKL OOP sLO0P IF SELECTED 
077072 104406 TRAP CSCLPi1 
9606 077074 012703 000024 MOV 620. ,.R3 sSTARTING RECORD SIZE 
9607 077190 013737 003114 102102 MOV FREE, T27RB sSTARTING READ BUFFER ADDRESS 
—o F SHHSS}HHSSSSSSSSSSSSSSSESSESSESSSSSSSSSSHESSSSESSSESESHSESSSESESEESEES 
9610 3 
9611 sREAD DATA,ACK COMMAND 
9612 3 
9613 J SSSSHSSSSSSSTOSSSSSSSSSHSHSSSSHSSSHSSSSSHSSSSHSSSSOSSESSSSSSSSSESSESESE 
9514 
9615 077106 012737 100001 102100 265%: MOV #190001, T27PK3 sREAD DATA,ACK COMMAND 
9616 077114 012704 102100 MOV @T27PK3S RA 3SET UP R4 WITH PACKET ADORESS 
9617 077120 010337 102106 MOV R3,727SZ sSET UP RECORD SIZE IN PACKET 
9618 077124 010465 MOV uae sISSUE COMMAND 
9619 077130 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 
077134 016501 000002 MOV TSSRC(RS).R1 sGET TSSR CONTENTS 
9621 077140 012702 000200 MOV @SSR ,R2 sSET UP EXPECT 
9622 077144 020102 CMP R1,R2 sARE THEY 
9623 077146 001406 BEQ 260% 3BR, IF 
9624 077150 005237 002212 INC FATFLG ;B8UPP COUNT 
9628 077154 ERRHRD ERRNO. RDERR ,.PKTSSR sTSSR INCORRECT AFTER READ DATA 
077154 104456 TRAE CSERHRD 
077156 001325 -WORD 725 
077160 .WORD RDERR 
077162 012136 .WORD PKTSSR 
9629 077164 2808: CKLOOP ;LO00P IF SELECTED 
077164 1 TRAP CSCLPi 
9630 077166 013702 003114 MOV FREE ,R2 3;GET BUFFER ADORESS 
9631 077172 010304 MOV R3,R4 sGET RECORD SIZE 
32 077174 162704 000024 SUB #20. ,.R4 sPOINT BACK TO 1ST RECORD 
9633 077200 285%: ADO R2,R4 sPOINT TO 1ST LOC IN BUFFER 
9634 077202 021403 CMP (R4),R3 sOATA WRITTEN = READ 
39635 077204 001410 BEG 2908 36R, IF DATA OK (GOOO) 
36 077206 011401 mov (R4),R1 sPICK UP BAD DATA 
9637 077210 010302 MGV R3, sSET UP EXPECTED 
9638 077212 37 002212 INC FATF sBUMP COUNT 
9642 077216 ERRHRD ERRNO, T27DTA,EXPREC IDATA IN BUFFER NOT Se . 
077216 104456 CSERHMRD 
7220 001326 ‘one 726 
077222 104766 .WORD T270DTA 
077224 015564 .WORD EXPREC 
9643 077226 2908: CKLOOP 3LOO0P IF SELECTED 
077226 1 TRAP CSCLPi 
9644 077230 005724 TST (R4)> ;68UMP TO NEXT ADORESS 
9645 077252 160204 R2,R4 sBACK TO RECORD SIZE 
9646 077234 020403 R4,R3 sAT END OF RECORD YET 
7 077236 001360 285% 38R, IF MORE DATA TO CHECK 
077 005723 TST (R3)-« sBUMP RECORD SIZE 
9649 077242 020327 9000050 R3,040. sOONE YET 
9650 077246 001317 BNE 265% 36R, IF NOT DONE YET (MORE READS) 
9651 077250 3008: CKLOOP :L00P IF SELECTED 
077250 104406 TRAP CsCLPl 
9652 077252 3308: 


- HARDWARE TESTS 
DATA RETRY 


TSv? 
TEST ?: 


9653 


WRITE 
077252 


077314 


104402 
004737 
004737 
004737 
012737 


1-8 


002212 
017272 


016064 


000250 
002116 
177772 
177756 
102132 
0022i2 


002172 
101750 


MACRO M1113 14-JUN-84 14:17 


ENDSUB 


000017 CMP 
BLO 
JSR 

9995: 


FATFLG,@15. 
999% 
PC ,CKDROP 


i 
— 7, SUBTEST 4 
iVERIFIES THAT A WRITE DATA RETRY COMMAND WITH SWB-1 
T TES PROPERLY AND 


ERMINA 
iC THE WRITTEN RECORD IS READ AND 
sBYTE COUNTS AND DATA PATTERNS ARE USE 


JSR 
JSR 
JSR 
102132 MOV 


PC, T27REST 

PC, T27RT2 

PC, T27RTS 
#65000. , T27DLY 


SEQ 9287 


g>>>>>>>>>2>> END SUBTEST >>> >>> >> >>> 


110125: 
TRAP CSESUB 
sI1S ERROR COUNT AT 25 
36R, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


WRITES CORRECT DATA ON TAPE 
or res VARIOUS 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
17.4: 
TRAP Cs6SU8 


sSET UP DELAY COUNTER 


i 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
F SSHSSSSSHSSHSSSSHSSSSSSSSSESHHSSHSSSSHSSSESSSHHSSHSESHEESSEESEEEEEE 


108%: JSR 
bcs 
DELAY 


101770 20%: MOV 
MO 


PC, SOF INIT 
20% 
250 


T270LY 

10% 

FATFLG 

RO,R1 

ERRNO, SFIERR , SF IMSG 


UNITN, T270SW 
@T27PACKET ,R4 


300 INITIALIZE ON CONTROLLER 
s8R IF INIT WAS OK 
sDELAY ABOUT .25 SEC 
MOV #250 ,.( PC )- 


0 
MOV LSOLY,(PC)- 
. WORD 0 
DEC -6( PC) 
BNE = 
DEC -22(PC) 
BNE .-20 
sBUNP COUNTE 
2 IF COUNTER NOT DONE 
i CONTENTS OF TSSR REGISTER 


sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 


-WORD 727 
-WORD SFIERR 
WORD SFIMSG 


:SET UP UNIT (ORIVE) NUMBER 
;SUBROUTINE NEEDS PACKET ADORESS 


LT EE tt SESS ee ae 


TSV7 - HARDWARE TESTS 
TEST 7: WRITE DATA RETRY 


02 
9703 077410 


9716 

9719 077436 
9720 077442 
9721 077444 


9735 

9736 077470 
9737 077474 
9738 077476 
9739 077502 
9740 077504 
9741 077506 
9745 077512 


077522 
9747 077524 


004737 
103407 
005237 
010001 


104456 
001330 
005054 


012124 
104406 


013701 
010102 
02 


104406 
012703 


1-8 


010752 
002212 


002212 


000024 


MACRO M1113 


D7 
14-JUN-84 14:17 
FSESSSSNSSSSSSHASASSSHESSHESAOESHSEASSESHEESEHESEEHSEEEEHEEEOHEEEEOEEEEEDE 
H 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
» Sonensoneesennnsoonsonesqnonsnsosneneaseesenoeseeneososeosononsess 


JSR PC, WRTCHR s ISSUE WRITE CHARACTERISTICS 
BCS 23% sBR, IF COMMAND ISSUED OK 
sBUMP COUNT 


INC FATFLG 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG SWRITE CHARACTERISTISC FAILED 


23%: CKLOOP sLOOP IF SELECTED 


‘ 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
F SSSHSSHSSHSHSSASSSSSSSSSSHESSSSASSHSHSSEOSSHESSSESSSSEHSSESESESESSEESE 


JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
BCS 30% s6R, IF NO PROBLEM 
MOV TSSACRS),R1 GET TSSR_CONTENTS 
RO, sGET PACKET ADORESS 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T27RWN,PKTSSR ;REWIND NOT ACCEPTED — 
. WORD 
. WORD 
. WORD 
308: CKLOOP sLOOP IF SELECTED 
TRAP 


‘ eeeenneneneeee nannies: 

rREAD MESSAGE BUFFER EXTENDED STATUS REGISTER. ZERO (xSTO) 

jOoeccsoccccoscooccssooocoococcesoosooeccescoscccesonceseseeesccees 
MOV ft Ai oR1 sPICK UP xSTO 


MOV sSET UP EXPECTED 
BIS gett) Ae 1SET BOT Me a 


CMP R1,R2 sD0ES EXP 

BEQ 40% s8R, IF EQUAL (OK) 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T27B0T ,EXPREC 3; TAPE NOT AT BOT AFTER a 
. WORD 
. WORD 
. WORD 


408: CKLOOP 
MOV #20. ,R3 


sLOOP IF SELECTED 
sSTARTING RECORD SIZE 





SEQ 0288 


E7 


9795 077702 
9796 


§ SSSSESSESSESSESESSSSHESEHSSEESSSSESEASHSSSHSSSHESHSSHESSSSHEHARESHESEKEEEED 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 0289 
TEST Ve WRITE DATA RETRY 
9748 077530 013737 003114 102102 MOV FREE, T27WB sSTARTING WRITE BUFFER ADDRESS 
9749 
9750 FSMHASASHSSASSSSHHSESSSEEHATEHSESOSEEAHASEHEHEAEHHEEHRESHEHEEEEOEHOESHOOE 
9751 3 
9752 ;WRITE DATA,CVC=1,ACK COMMAND 
9753 3 
9754 FPMHAHAAAAEHAHEAHEEESESEEEEEEEEEREERESEEEEHHESHEEERROSEROSEEEEEERERE | 
9755 
9756 077536 012737 140005 102100 65%: MOV #140005, T27PK3 sWRITE DATA,CVC=1,ACK COMMAND | 
9757 077544 012704 102100 MOV @T27PK3,R4 sSET UP R4 WITH PACKET ADDRESS | 
9758 077550 010300 MOV R3,RO 3SET PATTERN IN CORRECT ie 
9759 077552 004737 017512 JSR PC .FILLMEM sFILL MEMORY WITH RECORD S 
9760 077556 010337 102106 MOV R3,727S8Z sSET UP RECORD SIZE IN PACKET H 
9761 077562 010465 000000 MOV R4, Ms + Na s ISSUE COMMAND i 
9762 077566 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 
9763 077572 016501 000002 MOV TSSR(RS), R1 sGET TSSR CONTENTS 
9764 077576 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 
9765 077602 102 CMP R1,R2 sARE THEY EQUAL 
9766 077604 001406 BEQ 80$ sBR, IF OK 
9767 077606 005237 002212 INC FATFLG sBUMP COUNT 
9771 077612 ERRHRD ERRNO,WRTERR,PKTSSR 3TSSR INCORRECT AFTER WRITE DATA 
077612 104456 TRAP CSERHRD 
077614 001333 . WORD 731 
077616 005111 . WORD WRTERR 
077 012136 . WORD PKTSSR 
9772 077622 80$: CKLOOP ;LOOP IF SELECTED 
errs 077622 104406 TRAP CSCLP1 
9774 * CORSSAASHEAASESESESEEEESSOAESESESEEEEEEOESSEESEEREEEAERERESESOSESEEE 
9775 Hy 
4b sWRITE DATA RETRY,ACK,SWB=1 COMMAND 
H 
or. Pit itiiiiiiitiiiiittitiiititiiiiitiitiiiiitiiiiittiiiiiitiiiTitittt 
79 
9780 077624 012737 111005 102100 MOV #111005, T27PK3 sWRITE DATA RETRY, ACK,SWB=1 COMMAND 
97861 077632 010465 MOV R4, TSOBCRS) sISSUE COMMAND 
9782 077636 737 016340 JSR »WAITF sWAIT FOR SSR TO SET 
9783 077642 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
9784 077646 012702 000200 MOV @SSR ,R2 3sSET UP EXPEC 
9785 077652 020102 CMP Ri, R2 sARE THEY 
9786 077654 001406 BEQ 90% BR, IF 
9787 077656 005237 002212 INC FATFLG sBUMP COUNT 
9791 077662 ERRHRD ERRNO, T27WRF ,EXPREC sTSSR INCORRECT AFTER WRITE DATA RETRY 
077662 104456 TRAP CSERHRD 
077664 001334 . WORD 32 
077666 104706 . WORD T27WRF 
077670 015564 EXPREC 
9792 077672 90% CKLOOP ;LO0P IF SELECTED 
077672 i TRAP CSCLPl 
9793 077674 005723 TST CR3)>+ ;BUMP ee COUNTER 
9794 077676 020327 000050 CMP R3, 040. SAT 40 SIZE Y 
001315 BNE 65% 3BR, IF MORE RECORDS TO WRITE 





TSv? 


9801 


- HARDWARE 


077776 


TESTS 1-8 
TEST 7: WRITE DATA RETRY 


013701 
010102 


104406 
012703 
013737 


011104 
000002 
002212 


002212 


000024 
003114 


002212 


MACRO M1113 14-JUN-84 14:17 


102102 


102100 


FARSSHRAHAASASHASASHEASESEEHHOESSEAAESEHESESHESHESSESESEHEEEEEOEEEEEESEEES 


JSR PC, —— 
BCS 230% 

MOV TSSRCRS),R1 
MOV oat <a 

INC 


ERRHRD ERRNO. T27RWN,PKTSSR 


230%: CKLOOP 


sCALL TAPE REWIND COMMAND 
36R, IF NO PROBLEM 
sGET TSSR CONTENTS 
sGET PACKET ADDRESS 
sBUMP COUNT 
sREWIND NOT ACCEPTED 
CSERHRD 
-WORD 733 
.- WORD T27RWN 
PKTSSR 


s;LOOP IF SELECTED 
TRAP CsCLPl 


J SSSHHSSSSASSSSHSSEASSSSSSSSASASEEHESSESEASHESHHSSHSSEASSHEEASSEEEEEEEES 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


é 
FSAMAARSASSSSSSSSSAASSSSSSHASSSEHEASSHESSEASSSEESOKSSSSSEASESSSHSSHHSEHESS 


MOV T27BFR+6,R1 

MOV Ri ,R2 

BIS @B1IT1,R2 
R1,R2 


1, 
BEQ parre 
INC FATFL 
ERRHRD ERRNO. T27B0T ,EXPREC 


CKLOOP 


MOV #20. ,R3 
MOV FREE , T27RB 


sPICK UP XSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
sDOES EXP = REC'D 

3BR, IF EQUAL (OK) 


sBUMP C 
3 TAPE NOT AT BOT AFTER REWIND 
TRAP 


CSERHRD 
-WORD 734 
«WORD T27B0T 
-WORD EXPREC 


sLOOP IF SELECTED 


TRAP CsCLP1 
sSTARTING RECORD SIZE 
sSTARTING READ BUFFER ADORESS 


FSSSHSSSHSSSHSSSSSHSSSSSEHHSSHASSHSSHSSSSSSSHESSESEHESHESSESSESEHSEESHEE 


;READ DATA,ACK COMMAND 


é 
F PSSSSSSSSSSSHSSSSSSSSSSSSHSSESHSSSSSSSEOSSSSESHSSSSESSSHASHSHSHEEEESS 


265%: MOV #100001 , T27PK3 
MOV @T27PK3 ,R4 
MOV R3,T27SZ 
MOV R4, TSOBCRS) 
JSR PC ,WAITF 
MOV TSSRC(RS),R1 
MOV @SSR, 
CMP R1,R2 
BEQ $ 


280 
INC FATFLG 
ERRHRD ERRNO,RDERR,PKTSSR 


sREAD DATA,ACK COMMAND 

;SET UP R4& WITH PACKET ADORESS 

sSET UP RECORD SIZE IN PACKET 
COMMAND 


sSET UP EXPEC 

;ARE THEY EQUAL 

;BR, IF OK 

sBUMP COUNT 

iTSSR INCORRECT AFTER = DATA 

TRAP CSERHRD 

.WORD 735 
.WORD RDERR 


- HARDWARE TESTS 1- : 


TSv? 
TEST Ts WRITE 


9854 100062 


DATA RETRY 
012136 


04406 

013702 003114 

162704 000024 
204 


005237 002212 


3 
023727 002212 000017 
103402 
004737 017272 


MACRO M1113 


280$: 


285$: 


290$: 


999%: 


id 


G/ 


14-JUN-84 14:17 SEQ 0291 
WORD PKTSSR 
CKLOOP sLOOP IF SELECTED 
RAP cscLPl 
MOV FREE ,R2 sGET BUFFER ADDRESS 
MOV R3,R4 sGET RECORD SIZE 
SUB 020. ,R4 sPOINT BACK TO 1ST RECORD 
ADD R2,R4 sPOINT TO 1ST LOC IN BUFFER 
SWAB R3 sSWAP BYTES SWB-1 ETC. 
CMP (R4),R3 sDATA WRITTEN = READ 
BEQ s6R, IF DATA OK (GOOD) 
MOV (R4),R1 : UP BAD DATA 
MOV R3,R2 sSET UP EXPECTED 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T27DTA,EXPREC sDATA IN BUFFER NOT CORRECT 
TRAP CSERHRD 
-WORD 736 
-WORD T27DTA 
-WORD EXPREC 
CKLOOP ~. sLOOP IF SELECTED 
TRAP CSCLP1 
TST (R4)> sBUMP TO NEXT ADDRESS 
SUB R2,R4 sBACK TO RECORD SIZE 
SWAB 3 8 R3 BACK INTO SHAPE 
R4,R3 sAT END OF RECORD YET 
BNE 285% 3BR, IF MORE DATA TO CHECK 
TST (R3)-> +BUMP RECORD S 
CMP R3, 038. sD0ONE YET 
BNE 265% ;BR, IF NOT DONE YET (MORE READS) 
CKLOOP ;LOOP IF SELECTED 
TRAP CsCLPl 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10126: 
TRAP CSESUB 
CMP FATFLG,@i5. sIS ERROR COUNT AT 25 
BLO 999% ;BR, IF LESS THAN 25 
JSR PC ,CKDROP ;TRY TO DROP THE UNIT 


; 
poo 7, SUBTEST 5S 


3 
31. 


=e © Gs Ge oe Gs oe os Ge 
% 


;VERIFIES THAT A WRITE DATA RETRY COMMAND IS 
“ERASE” PART 


OF THE OPERATION BY 


PERFORMING THE 
sPERFORMING THE FOLLOWING SERIES OF STEPS. 


THE TAPE IS REWOUND AND A SERIES OF RECORDS ARE 
WRITTEN WITH THE NORMAL WRITE DATA COMMAND. THIS 
SHOULD RESULT IN RECORDS SEPARATED BY THE 
STANDARD INTERRECORD GAP. 


A PROGRAM TIMING VALUE IS CALIBRATED BY REWINDING 
THE TAPE 1 THEN CONUTING THE NUMBER OF CYCLES 

THROUGH A PROGRAMMED LOOP REQUIRED TO SPACE OVER 
+ SERIES OF RECORDS WRITTEN IN PREVIOUS 


9947 100314 
9948 
9949 100322 


TSV7 - HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 


012737 


012124 
013737 


012704 


016064 


000250 
002116 
177772 
177756 
102132 
002212 


002172 
101750 


102132 


H/ 


MACRO M1113 14-JUN-84 14:17 SEQ 0292 
33. THE TAPE IS AGAIN REWOUND AND THE SAME SERIES OF 
: oatn ter Bag hs AGAIN, THIS TIME at THE WRITE 
: DATA RETRY COMMAND. TH yy SHOULD RESULT IN 
F RECORDS. SEPARATED BY A LONG INTERRECORD GAP. 
} 
34. THE TAPE IS AGAIN REWOUND, THE SPACING COMMAND 
3 ISSUED, AND THE NUMBER OF TIMMING LOOP CYCLES 
$ COUNTED TO COMPLETE THE OPERATION. 
H 
:5. THE TWO LOOP COUNTS ARE COMPARED, CHECKING TO SEE 
; THAT THEY DIFFER BY A SIGNIFICANT AMOUNT. 
; 
; 
a BGNSUB g>>>>>>>>>>>> BEGIN SUBTEST >>>>>>»>>>>> 
77.5: 
TRAP C$6Su8 
CLR INTRECV s INTERRUPT INDICATOR 
CLR T27CNT sTIMER FOR WRITE DATA SPACING 
CLR T27CNU sTIMER FOR WRITE DATA RETRY SPACING 
JSR PC, T27REST sSET COMMAND PACKET 
JSR PC, T27RT2 sSET UP OTHER COMMAND PACKET 
JSR PC, T27RTS ;SET UP OTHER COMMAND PACKET 
MOV #65000. , T27DLY 3SET UP DELAY COUNTER 
PeTT ITI Tit rir rr rrritiritiitititiritiitiiiiitiiiititiitiiiiiiiitii iit 
H 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
s ennaneabomensenniennsnnesnsnemenennesneeseenneaseNeenenasnenen 
10$: JSR PC. SOF INIT 300 INITIALIZE ON CONTROLLER 
6cS 20$ 36R IF INIT WAS OK 
DELAY 250 sDELAY ABOUT .25 SEC 
Vv aaa 
MOV LSOLY,(PC)« 
. WORD 0 
DEC “GCG) 
BNE 
DEC "32cec) 
BNE .-20 
DEC T270LY sBUMP COUNTER 
BNE 10$ :6R, IF COUNTER NOT DONE 
INC FATFLG sBUMP COUNT 
MOV RO,R1 i CONTENTS OF TSSR REGISTER 
ERROF ERRNO,SFIERR,SFIMSG :FATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
. WORD 737 
-WORD SFIERR 
SF IMSG 


101770 208: MOV UNITN, T270SW 


sSET UP UNIT NUMBER 
sSUBROUTINE NEEDS PACKET ADDRESS 


MOV @T27PACKET ,R4 





TSV7? - HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 


100326 robbs 


9958 100332 10 


100346 005054 
100350 012124 
100352 


100352 104406 


100406 013701 
100412 010102 
052702 


010752 
002212 


011104 
000002 
002212 


rf: 


MACRO M1113 14-JUN-84 14:17 ¥ 


J SSSAAAAREKAAESEAHSAEAEHEERAEEHEEEEEREOEEEEEEEEEEHEEEHEEHEEESESEEEEEE 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


+ 
J FSAASHARAASHSAKASASHSHAHKE ESHA EREKESESEEREHACEEEEEEEEEEEEEEEEEEEEE 


JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 

BCS 23% sBR, IF COMMAND ISSUED OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO, WRTMSG, SFIMSG sWRITE CHARACTERISTISC F — 
- WORD 
. WORD 
. WORD 

23%: CKLOOP sLOOP IF SELECTED 

TRAP 


FS SSHSHSSSSSSASSSSAASSASSESSESESHESESHRSESESSASSHESSSESHSHSSESSEEESSEEESEEE 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


° 
F SSHSSSHSSSHSSSSSSSSSSSASHSSSSAKSSEEHESSSSEEHSESHSSHSSSSSSSKESESSSESEE 


JSR PC, ‘te a TAPE REWIND COMMAND 

BCS IF NO PROBLEM 

MOV TSSRCRS), Ri 1GET TSSR gibt 

MOV RO,R sGET PACKET ADORESS 

INC FATF UG sBUMP COUNT 

ERRHRD ERRNO, T27RWN,PKTSSR ; REWIND NOT ACCEPTED _— 
. WORD 
- WORD 
.WORD 

30$: CKLOOP sLOOP IF SELECTED 

TRAP 


SPSAECKEKEHRESHSKASESAHREATASESHKEEKASHESEKKAHHAHEKAKHEREEHSESHERAR AREER REED 


i 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


@ 
SEAR HEHEKAEARERERRE EAE USSAHAMHSRERSKEEAAEHARRHSAEHESAREBDEEASHHHAL RH 


MOV T27BFR+6,R1 sPICK UP XSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS oBIT1, Re :SET BOT BIT IN EXPECTED 
R1,R2] sD0ES EXP = REC'D 
BEQ 40% ;BR, IF EQUAL (OK) 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T27B0T ,EXPREC ;TAPE NOT AT BOT AFTER a 
. WORD 
. WORD 
. WORD 
40%: CKLOOP ;LOO0P IF SELECTED 
TRAP 


SEQ 0293 


CSCLP1 


J? 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14;17 SEQ 0294 
TEST 7: WRITE DATA RETRY 

10001 100442 012703 000144 MOV #100. ,R3 sNUMBER OF RECORDS TO BE WRITTEN 

10002 100446 013737 003114 102102 MOV rREE, T27WB sSTARTING WRITE BUFFER ADDRESS 

0003 

so00s Prt T TIT iT iti titi iiii iit tiiiitiiiiiriiiiiiitiiiittriitiiiiiiii itt) 

10005 3 

10006 «WRITE DATA,ACK,CVC=1 COMMAND 

0007 

poets | Obnnneseconossonesoneesesonccesosessnnssonsossoooeooneeesoesetess 

10009 

10010 100454 012737 140005 102100 65%: MOV #140005, T27PK3 ;WRITE DATA,ACK,CVC=1 COMMAND 

10011 100462 012704 102100 MOV @T27PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 

10012 100466 012737 000024 102106 MOV #20. ,T27SZ 3SET UP RECORD SIZE IN PACKET 

10013 100474 010465 000000 MOV R4, TSOBCRS) sISSUE COMMAND 

10014 1 004737 016340 JSR C,WAITF sWAIT FOR SSR TO SET 

10015 1 016501 000002 MOV TSSR(RS), R1 sGET TSSR CONTENTS 

10016 100510 012702 000200 MOV #SSR ,R2 sSET UP EXPECTED 

10017 100514 020102 CMP R1,R2 sARE THEY EQUAL 

10018 100516 001406 BEQ 70$ sBR, IF OK 

10019 100520 005237 002212 INC FATFLG sBUMP COUNT 

10023 100524 ERRHRD ERRNO,WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
100524 104456 TRAP CsE 
100526 001345 . WORD 741 
100530 005111 -WORD WRTERR 
100532 012136 .WORD PKTSSR 

10024 100534 70$: CKLOOP ;LOOP IF SELECTED 
100534 104406 TRAP CSCLP1 

10025 100536 005303 DEC R3 sDEC RECORD COUNTER 

oe 100540 001345 BNE 65% sBR, IF MORE RECORDS TO WRITE 

10028 FSCRSRSESESSESSSESAEAESEEESEESEEEESESESEEEESEEEESEESESEEEESESOERESES 

10029 Fy 

nee s ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 

een | Obdecescccccscccooscccossncosscseesoneesoooessooeseceeseseeesesees 

10034 100542 004737 011104 JSR PC ,REWINO sCALL TAPE REWIND COMMAND 

10035 100546 103411 BCS 130% s68R, IF NO PROBLEM 

10036 100550 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

10037 100554 010004 MOV 9 7 sGET PACKET ADDRESS 

10038 100556 005237 002212 INC FLG sBUMP COUNT 

10042 100562 ERRHRD ereee. T27RWN,PKTSSR ; REWIND NOT ACCEPTED 
100562 104456 TRAP CSERHRD 
100564 001346 . WORD 742 
100566 103305 . WORD T27RWN 
100570 012136 .WORD PKTSSR 

10043 100572 130$: CKLOOP ;LOOP IF SELECTED 

. - 100572 104406 TRAP CsCLP1 

10045 j PEOEEEEEEESSSSSEESEEEEESEEESEEEEESESEEERESESESESEEEERESEESESEELOEES 

10046 3 

cose sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

0048 ; 

cooee {PROSE OSOSSESESSSEERESESSESEEEEEESSEAESEESESESEESSEEEEEEESESEEEEEES 

1 

10051 100574 013701 102000 MOV T27BFR+6,R1 sPICK UP XSTO 

10052 100600 010102 MOV R1,R2 ;SET UP EXPECTED 

10053 100602 052702 000002 BIS #BIT1,R2 ;SET BOT BIT IN EXPECTED 


PF age oy TESTS 1 


test “?s ITE DATA RETRY 


104406 
012704 
012737 


8 
3 
g 


004737 
004737 


010001 


002212 


102100 
000010 


140010 
000000 
102126 
000001 
002116 
177772 
177756 
000002 


002212 


011104 
016426 


MACRO M1113 14-JUN-84 14:17 SEQ 0295 
CMP R1,R2 sD0ES EXP = REC'D 
BEQ 140$ sBR, IF EQUAL (OK) 
INC FATFLG ; BUMP OUNT 
ERRHRD ERRNO, T27B0T ,EXPREC S TAPE NOT AT BOT AFTER — 
CSERHRD 
TORO 743 
-WORD T2780T 
«WORD EXPREC 
140%: CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 
MOV @T27PK3,R4 sSET UP PACKET ADDRESS 
102102 MOV #10, T27RB sSET UP RECORDS TO SPACE OVER 
FSSASASSASSAASSHSHSSESEHSESSEAESEAESAESESEESESEKEEEEEEESEEEAEEEEHEEEESEEEEE 
i 
sACK,CvC=1,SPACE FORWARD COMMAND 
a 
FSSSSSSSSSSSSSSSSSESSSESHSSSESSSEEASHSKSEHEESSHESHSOESSESASSASEEEEESEEEEEEE 
102100 MOV #140010, T27PK3 sACK,.CVC=1,SPACE FORWARD COMMAND 
150%: MOV R4, TSOBCRS) sISSUE COMMAND 
152$: INC T27CNT sBUMP TIMER 
DELAY 1 sDELAY ABOUT 100US 
MOV #1,(PC)-> 
-WORD O 
MOV  eemenee 
DEC io is 
BNE 
DEC "22¢PC) 
BNE .-20 
MOV TSSRCRS),R1 ;GET TSSR 
BIT @BIT7,R1 ;CHECK FOR TSSR’'S SSR SET 
BEQ 1528 sKEEP COUNTING UNTIL SET 
MOV TSSRCRS),R1 ;GET STATUS FROM TSSR 
MOV @SSR ,R2 ;SET UP EXPECTED 
CMP R2, Ri sWAS EVERYTHING OK 
BEQ | oad ;BR, IF ALL IS WELL 
INC FLG s;BUMP COUNT 
ERRHRD ERRNO. T27SCF ,PKTSSR sSPACE FORWARD DIDN'T WORK OUT 
TRAP CSERHRD 
. WORD 744 
. WORD T27SCF 
-WORD PKTSSR 
160%: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 


PERAK ERRRERAERERHEREEERER RARE AKHEERKARREHEEERARE KE THEE HERA KERS REE 


: 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


: 
FF SOSESESSESESSESESSSSEAESSESSSSSESASSSESHESSSHSHSSESEESEHESEHEESSEHEEEEEEE 


PC ,REWIND 
PC ,CHKTSSR 
170% 

RO,R1 


sCALL ng REWIND COMMAND 
sSEE HOW TSSR IS 

sBR, IF NO PROBLEM 

sSAVE TSSR 


TSV7 - HARDWARE TESTS 1-8 
DATA RETRY 


TEST 7: 


10099 
10103 


WRITE 


005237 


104456 
001351 
103305 
012136 


104406 


013701 
010102 


104406 
012703 
013737 


002212 


002212 


000144 
003114 


140005 
102100 
000024 
000000 
016340 
000002 
000200 


002212 


MACRO M1113 14-JUN-84 14:17 SEQ 0296 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T27RWN,PKTSSR sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 745 
. WORD T27RUN 
-WORD PKTSSR 


102102 


102100 
102106 


170$: CKLOOP sLOOP IF SELECTED 
TRAP C$CLP1 


J SSASAAASSEHASASSSSSEESSESESESEHESESESSESSSEESESKSESEESSESSEEEHEEEEEEEEEEEEEEED 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


i 
F SSSSSSSSEAASSSSASSESSSSSEHSSEHKSESEHSESSEAESSESSSESESESHSESEHEEEEHEEEEEES 


MOV T27BFR+6,R1 sPICK UP XSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS 6IT1,R2 sSET BOT BIT IN EXPECTED 
CMP R1i,R2 sD0ES EXP = REC'D 
BEQ 175% ;BR, IF EQUAL (OK) 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO. T27B0T ,EXPREC ; TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 746 
-WORD T27B0T 
P EXPREC 
175%: CKLOOP ;LOOP IF ee 
CSCLPi 
MOV #100. ,R3 sSTARTING Recorn’ SIZE 
1778: MOV FREE , T27We ; STARTING WRITE BUFFER ADDRESS 
PRCKAAHSKRAAKEEASHSASAAKAHHKEHHOKREHSAHHRAAAHKAREKE HRI ARAGCHRARASHUKHAEHREH 
3 
sWRITE DATA,CVC=1,ACK COMMAND 
PReAKAKRSSSHEOAAKEORKRSEREARESHARSHAEARASHARHRLAREARHASGAEASHRERSEASAKEARAASE 
MOV #140005, Aas sWRITE DATA,CVC=1,ACK COMMAND 
MOV @T27PK3,R sSET UP R4 WITH PACKET ADDRESS 
MOV 20. 12782 sSET UP RECORD SIZE IN PACKET 
MOV R4, TS0B(RS) :IS COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSR(RS),R1 sGET TSSR CONTENTS 
MOV @SSR ,R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ $ 3BR, IF 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO,WRTERR,PKTSSR ;TSSR INCORRECT AFTER = I cy 
TWORD 747 
-WORD WRTERR 
WORD PKTSSR 
160%: CxLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
DEC R3 sCOUNT NUMBER OF RECORDS 
BNE 177$ :BR, IF MORE RECORDS TO WRITE 


TSV7 - HARDWARE 
TEST 7: WRITE OD 


10150 
10151 


101142 
101146 
101150 
101152 
101156 
101162 
101162 
101164 
101166 
101170 
101172 
101172 


101174 
101200 


004737 
103411 
010004 
016501 
005237 


104456 
001354 
103305 
012136 


104406 


012703 
004737 


104406 
012703 
013737 


012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 


TESTS 1 
ATA RETRY 


011104 


000002 
002212 


000144 
003114 102102 


101005 102100 
102100 
000024 102106 


000000 
016340 
000002 
000200 


MACRO M1113 


M7 


14-JUN-84 14:17 


J SSSSSSSSHESSSSHESSSHESSSHESESESESESEHESHASESESEEESEHEEEHEESESESHESESEHEEEEEEEE ROE 


;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


‘ 
J SSSSSSSSASHSSESSSSSSSSESSESESSSESEHSSSASEESSEHSSHESSESHSHEHEEESEKESEESEEEE 


1823: 


ERRHRD ERRNO, T27RWN,PKTSSR 


CKLOOP 


PC ,REWINO 
162$ 

RO,R4 
TSSRCRS),Ri 
FATFLG 


s ISSUE REWIND 

sBR, IF ALL IS WELL 

sGET PACKET ADDRESS 

;GET TSSR CONTENTS 
OUNT 


;BuUMP C 
s;REWIND FAILED 
TRAP 


558 


sSELECT LOOP MAYBE 
TRAP 


F SSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSSSSSSSSSSSSSSSSSSSSSSSSESESSSESKEEESSD 


} ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 


;BIT 15 SETS DIRECTION - O=FORWARD 


1=REVERSE 


3 
J SSSHSSSSSSSSSSSSSSSSSSSSSSSSHSSSSHSSSSSSSESSSSSSSESSSSSHSSEESESSEEES 


1655: 


ERRHRD ERRNO, T27SCF ,PKTSSR 


CKLOOP 


MOV 
MOV 


TSSR(RS),R1 
FATFLG 


#100. ,R3 
FREE ,T27W8 


sSPACE 1 RECORD FORWARD 


sGET TSSR STATUS 


BUMP COUNT 

;SPACE FORWARD COMMAND FAILED 
TRAP 
. WORD 
. WORD 
- WORD 

;LOOP IF SELECTED 
TRAP 


SEQ 9297 


C SERHROD 
748 
T27RWN 
PKTSSR 


CsCLP1 


CSERHRD 
749 
T27SCF 
PKTSSR 


CsCLPl 


sNUMBER OF RECORDS TO BE WRITTEN 


s;STARTING WRITE BUFFER ADDRESS 


; 
sWRITE DATA RETRY, ACK COMMAND 


; 


fF SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHESSSSSSSSSSSSSSESSSSESESE 


1903: 


3 


#101005, T27PKS 


;WRITE DATA RETRY,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 


SET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

;WAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

:SET UP EXPECTED 

;ARE THEY EQUAL 

;BR, IF OK 


eee 


TSV? - HARDWARE TESTS 1-6 MACRO M1112 14-JUN-84 14:17 ae 
TEST 7: WRITE DATA RETRY 


10203 101310 005237 002212 INC FATFLG ;BUMP COUNT 

10207 101314 ERRHRD ERRNO, T27WOC .PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
101314 104456 TRAP CSERMRD 
101316 001356 . WORD 750 
101320 103641 . WORD T27WOC 
101322 012136 .WORD PKTSSR 

10208 101324 2008: CKLOOP ;LO00P IF SELECTED 
101324 104406 TRAP CSCLPi 

10209 101326 013737 003114 102102 MOV FREE , T27w8 +STARTING WRITE BUFFER ADDRESS 

10210 

10211 fF SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSESSSESESSESEESESEESEEEEESE 

10212 3 

10215 sWRITE DATA,CVC*=1,ACK COMMAND 

10214 3 

10215 j SSSSOSSSSEESEESESESESEEESESEESESEEEEESEEESEESEEEEESEESEEEEEESESEES 

10216 

10217 101334 012737 140005 102100 MOV #140005, T27PK3 s WRITE one tare ACK COMMAND 

10218 101342 012704 102100 MOV OT27PK3 ,R4 ;SET UP R4 PACKET ADDRESS 

10219 101346 012737 000024 102106 MOV @20.,T27SZ iSET Pp RECORD” SIZE IN PACKET 

10220 101354 9010465 000000 MCV R4, TSOBC(RS) : ISSUE COMMAND 

10221 101360 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 

10222 101364 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 

10223 101370 012702 000200 MOV @SSR Re ;SET UP EXPECTED 

10224 101374 020102 CMP R1,R2 ;ARE THEY EQUAL 

10225 101376 001406 BEQ 210% :BR, IF OK 

10226 101400 005237 002212 INC FATFLG ;BUMP COUNT 

10230 101404 ERRHRD ERRNO,WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
101404 3104456 TRAP CSERHRD 
101406 001357 -WORD 751 
101410 005111 .WORD WRTERR 
101412 012136 -WORD PKTSSR 

10231 101414 210%: CKLOOP ;LOOP IF SELECTED 
101414 104406 TRAP CSCLP1 

10232 101416 005303 DEC R3 ;BUMP DOWN RECORD COUNTER 

oe 101420 001311 BNE 190$ ;BR, IF MORE RECORDS TO WRITE RETRY 

pees’ eriiiiiiititiitiiitiiitiiitiiiiittiiiiitiiiiiiittiiitiiitittitititty | 

3 

eet il s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

nes Pr itiitiiitiitiiiiititiititiiiitiiititiiitiiiiiiiiiittiiTitititi ttt 

10241 101422 004737 011104 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

10242 101426 103411 BcS 230% ;BR, IF NO PROBLEM 

10243 101430 015501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

10244 101434 010004 MOV RO,R4 :GET PACKET ADORESS 

10245 101436 005237 002212 INC FATFLG ;BUMP COUNT 

10249 101442 ERRHRD ERRNO, T27RWN,PKTSSR sREWIND NOT ACCEPTED 
101442 104456 TRAP CSERHRD 
101444 001360 -WORD 752 
101446 103305 -WORD T27RWN 
101450 012136 .WORD PKTSSR 

10250 101452 230%: CKLOOP ;LOOP IF SELECTED 

aeons 101452 104406 TRAP CSCLP1 

10252 FECRREEEEEEERSEERESEEAERAEREEEERERERAERERESERESEREEEREEEEAEEREEEEEE 


TSV7 - HARDWARE TESTS 1-8 
TEST Ts WRITE DATA RETRY 


013701 
010102 
702 


002212 


102100 
000010 


10269 101510 012704 
10270 101514 012737 


012737 
010465 
005237 
012727 
000000 


013727 
000000 


140010 
000000 
102130 
000001 
002116 
177772 
177756 
000002 


002212 


102126 
102130 


ar ee - e 


B8 
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102102 


102100 


sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


‘ 
J SSSSSSSHSHSSHKSSHSSSSSSSSSHSSSHESSHHSHSHSHESHSSSHHSEHHEEHEEHEOSHEEEESE 


2403: 


T27BFR6,R1 
R1,R2 
@BIT1,R2 
R1,R2 


240% 
FATFLG 
ERRNO, T27B0T ,EXPREC 


@T27PK3 ,R4 
#10, T27RB 


sPICK UP XSTO 

sSET UP EXPECTED 

1SET BOT ert IN EXPECTED 
sD0ES EXP = REC'D 

sBP. IF EQUAL (OK) 


sBUMP COUNT 
; TAPE NOT AT BOT AFTER — 


sLOOP IF SELECTED 


TRAP 
sSET UP PACKET ADDRESS 
sSET UP RECORDS TO SPACE OVER 


FS SSSHSSSSSSSHSSSSSSHSSSSSSSSSSSSSSSSHEHSSSSSSSHSSSSESSSSSSESSSESSSESESEE 


; 
sACK,CvC*1,SPACE FORWARD COMMAND 


a 
F SOHSSSSSESSSSSSSSSSSSSSSSSSSASSSSHSSSSSSHESSSSSSSSHSSSSHSSSSESSSHSSESES 


2508: 
2528: 


2608: 


MOV 
MOV 
INC 
DELAY 


#140010, T27PK3 
R4, TSOBCRS ) 
T27CNU 

1 


Ht + A Shae 
@BIT7,R1i 
2526 
TSSRCRS),R1 
@SSR ,R2 
R2,Ri 

2608 


FATFLG 
ERRNO. T27SCF ,PKTSSR 


T27CNT ,R1 
T27CNU,R2 
R1,R2 
R1,R2 


31S 


;BUMP TIMER 

sDELAY ABOUT 100US 
MOV 
. WORD 
MOV 
. WORD 
DEC 
BNE 
DEC 
BNE 


;GET TSSR 
sCHECK FOR TSSR’'S SSR SET 


COUN 
sSPACE FORWARD DION'T WORK OUT 
TRAP 


sLOOP IF SELECTED 
sTIME FOR WRITE SPACING 


sGET'EM PRETTY CLOSE 


sACK,CVC*1,SPACE FORWARD COMMAND 
SUE COMMAND 


SEQ 0299 


CsCLPi 


@1,(PC)- 
UsoLy. (PC) 
“6cPe) 
“2acee 

-20 


CsERHROD 
734 


T27SCr 
PKTSSR 


CsCLP1 


TSv? 


TEST ?: 


WRITE 


- HARDWARE TESTS 1-8 


DATA RETRY 


100004 
101760 
000000 


000012 
101772 
000000 
090024 


102110 


000077 
000777 


002212 


002212 
017272 


016546 
075266 
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SuB8 R1,R2 
BIC @77,R2 
BIC 000777 ,R1 
CMP R1,R2 
8GE 300 
INC FATFLG 
ERRHRD ERRNO, T27TIM,EXPREC 
300$: CKLOOP 
ENDSUB8 
CMP FATFLG,@15. 
BLO 999% 
JSR PC ..CKDROP 
999%: 
’ 
3 
3 
JSR PC, TSTLOOP 
Bcc 1638 
JP T27L00P 
163%: 
EXIT TST 


3° 
sLOCAL STORAGE FOR THIS TEST 
5° 


-BLKB 10-<.-TSV2E7> 
T27PACKET : 

-WORD 100004 

-WORD T27DATA 

-WORD O 

-WORD 10. 
T27DATA: 

-WORD T27BFR 

-WORD 0 

-WORD 20. 

-WORD 0 
T270SW: .WORD 0 
-ehtats: -BLKW 25. 


‘ 
T27PK2: 


10-<, -TSV2E7> 


100006 
T276F 2 


SEQ 9300 


sGET'EM PRETTY Res 

sCLEAR LOW 6 BIT 

sSETTING UP CONSTANTS 

sCHECK FOR DIFFERENCE 

sBR, IF GOOD s@ee CHECK aeee 

sBUMP COUNT 

sTIME WAS NOT DIFFERENT ENOUGH 
TRAP CSERHRD 
.WORD 755 
- WORD T27TIM 
-WORD EXPREC 


sLOOP IF SELECTED 


TRAP CsCLP1 
3cececececececce END SUBTEST »>>>>>>>>>>> 
10127: 

TRAP CsEesus 
sIS ERROR COUNT AT 25 
sBR, IF LESS THAN 25 
sTRY TO OROP THE UNIT 
300 WE NEED TO ITERATE TEST 
sBR, IF LOOP REQUIRED 
sEXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP CSExIT 
-WORD L10122-. 


sCOMMAND PACKET FOR TEST 
SWRITE CHARACTERISTICS COMMAND, WITH , 
sAQORESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sSELECT ORIVE 0 
sMESSAGE BUFFER 


ACK 


sWRITE SUB SYS MEM C AND ACK 


OMMAND , 
ADDRESS OF SELECT BLOCK DATA 
sSIZE OF DATA PACKET 


D& 


TSV7 - HAROWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 0301 
TEST 7: WRITE DATA RETRY 
10355 102070 .BLKB 10-<. -TSV2E7> 
10357 102100 T27PK3; 
10358 102100 100005 . WORD 100005 sREREAD COMMAND, AND ACK 
10359 102102 T27RB: 
10360 102102 003114 T27WB: .WORD FREE sADDRESS OF WRITE BUFFER 
10361 102104 00006) . WORD 0 
10362 102106 000000 T27SZ: .WORD 0 sSIZE OF BUFFER (EXTENT) 
10363 EVEN 
10364 : | 
10365 3 
10366 3 i 
10367 102110 T27BF 2: 
10368 102110 010 T27B8S0O: .BYTE 10 sBSELO AREA 
10369 102111 200 T27BS1: .BYTE 200 sBSEL1 AREA | 
10370 102112 000000 T27S2 . WORD 0 sSEL 2 AREA | 
10371 102114 000000 T2783 . WORD 0 sDATA AREA } 
10372 ; | 
10373 3 | 
10374 .EVEN | 
ee sTAPE MOTION PACKET COMMAND VALUES 
1 
10377 102116 100205 T27RN: .WORD 100205 sREREAD DATA (NEXT) 
10378 102120 100605 T27WOR: .WORD 100605 sREREAD DATA RETRY 
10379 102122 1 T27CON: .WORD 102205 sWRITE CONTINOUS 
10380 102124 177777 -WORD 177777 sEND OF DATA 
10381 
10382 
10365 102126 000000 T27CNT: .WORD 0 s TAPE TIMER COUNTER STORAGE AREA 
10384 102130 000000 T27CNU: .WORD 0 3 TAPE TIMER COUNTER STORAGE AREA 
10385 102132 000000 T270LY: .WORD 0 sDELAY COUNTER 
10386 
10387 
10388 3° 
10389 sLOCAL TEXT MESSAGES FOR TEST 
10390 > 
10391 
10392 
10393 102134 141 160 T27WNG: 


ASCIZ ‘Tape Position Incorrect After A ete Previous (OPP=1)' 
ASCIZ ‘TSSR Incorrect After READ DATA Command’ 
pot Pootries Previous (Space Reverse, Read Forward) Command Failed’ 


10396 102366 120 117 123 Te7Ssc: . ‘POSITION (Spece Commend) Feiled, TSSR Not Correct’ 
10397 102450 122 111 102 T27LOR: .ASCIZ ‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 
10396 102520 124 123 T27WOF: .ASCIZ ‘TSSR Not Correct After Illegel Mode Bits Set’ 
10399 102575 111 154 154 T27L0Q@: .ASCIZ He ae Mode Bite. Feiled to Set ILC Bit In xSTO’ 
10400 102656 122 105 122 T27SSR: .ASCIZ ' COMMAND Not 
10401 102712 124 123 123 T27WOE: .ASCIZ ‘TSSR Not Cerrect After CRITE DATA RETRY Command,A 
10402 103001 124 141 160 T27B0T: .ASCIZ ‘T Not At BOT After REWIND Command (BOT Not Set. tg xSTO): 
10403 103074 127 111 T27TIM: .ASCIZ ‘WRITE DATA RETRY’'S Ereee Tape Not Long 

103151 122 105 T27EOT: .ASCIZ ‘REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 
10405 1 124 12 T27™: .ASCIZ ‘T rect After REREAD Re ject’ 
10406 103305 122 145 167 T27RWN: . ‘Rewind (POSITION) Not Accepted’ 


ASCIZ ep 
ASCIZ ‘RAM Error, Correct Dete Pattern Not In Ram' 
ASCIZ ‘TSSR Init. Forled” After REREAD COMMAND’ 

10409 103476 104 162 151 T270FL: .ASCIZ ‘Drive 7 Select Feiled To Set “OFL” In TSSR' 

10410 103551 124 123 123 T2700: .ASCIZ ‘TSSR Not Correct After REREAD DATA Commend, SWB Bit Set’ 
10411 103641 124 123 123 T27WOC: .ASCIZ ‘TSSR Not Correct After REREAD DATA Commend’ 

10412 103714 103 126 103 T27vCK: .ASCIZ ‘CVC Set, Didn''t Reset VCK In Message Buffer’ 





TSV7 - HARDWARE 
TEST 7: WRITE DATA RETRY 


103767 
104042 
104131 
104215 
104275 
104363 
104451 

104547 
104624 
104706 
104766 
105063 


TESTS 1-8 
124 123 
127 122 
122 145 
122 145 
122 145 
122 145 
127 122 
124 123 
124 123 
124 123 
104 141 
127 162 

012701 101750 

012721 100004 

012721 101760 

012721 000012 

012721 101772 

005021 

012721 000024 

012711 000000 

012702 000030 

012762 177777 

005742 

022702 000000 

001371 

000207 

012701 102060 

012721 100006 

012721 102110 

012721 000006 

012701 102110 

005021 

005011 

000207 

012701 102100 

005021 

005021 
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T27WRF: . 
164 T27DTA: . 
151 TST27I0: 


3° 


; aatie 


‘'TSBA Not Correct After REREAD DATA Command’ 

‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
"Reading Long Record Failed To Set RLL Bit In xXSTO’ 
‘Reading 1 ye Record Feiled To Set RLS Bit In xXSTO’ 
*Residvel Byte Count Incorrect After Short Record Read’ 
'Reedi Record Feiled To Give ba Stetus Alert’ 
‘WRITE ATA TRY, At First Record, Fe 
‘TSSR Not Correct After SPACE RECORDS 
‘TSSR Not Correct After WRITE DATA RETRY, Into BOT’ 

"TSSR Not Correct After WRITE DATA RETRY Command’ 

‘Dete Compere Error, Date Read From Tape Not Equal To Written’ 
-ASCIZ ‘Write Dete Retry’ 


sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 


T27REST: 


101772 64%: 


T27RT2: 


T27RT3: 


sSAVE THE REGISTERS 
@T27PACKET ,R1 sSTART OF THE PACKET 
#100004 ,(R1)+ sWRITE yoy ho MEM. WITH ACK, 
@T27DATA,CR1)+ sADORESS OF CHARAISTICS DATA BLOCK 
(R1)+ sEXTENDED ADDRESS 
#10. ,(R1)+ sSIZE OF DATA BLOCK IN BYTES 
+ Linacre sADORESS OF MESSAGE BUFFER 
7 | agtmamat sLENGTH OF MESSAGE BUFFER 
& 
#0,(R1) sSELECT DRIVE ZERO 
#24. ,R2 sNUMBER OF LOCATIONS 10 BE CLEARED 
0177777, T27BFRCR2) sALL ONES TO MESSAGE BUFFER 
-(R2) SNEXT LOCATION 


@0,R2 sAT END OF LOOP YET 
64% sKEEP GOING UNTIL DONE 
PC sRETURN 


sSAVE THE REGISTERS 
PACKE 


@T27PK2,R1 sSTART OF THE T 
#100006, (R1)-+ sWRITE SUBSYSTEM MEM. WITH ACK, 
@T27BF2,(R1)+ sADORESS OF DATA BLOCK 
CR1)+ sEXTENDED ADORESS 
ae sSIZE OF DATA BLOCK IN BYTES 
6 
=~ sPOINT TO DATA SEL AREA 
(R1) 
PC sRETURN 
sSAVE REGISTERS 
4 | ee seer UP POINTER ADDRESS 
° 3 
CR1)+ sADDRESS OF DATA BLOCK 


SEQ 0302 


ed To Set RIB Bit xST3' 


FS 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14:17 SEQ 0303 
TEST Se WRITE DATA RETRY 
10470 105254 00502: CLR (R1)> sEXTENDED ADDRESS 
10471 105256 005011 CLR (R1) ;SIZE OF DATA TRANSFER BLOCK 
10472 105260 000207 RTS Pp ;RETURN 
10473 105262 ENOTST 
105262 L10122: 
105262 104401 TRAP CSETST 
10474 
10475 .SBTTL TEST 8: WRITE/READ TAPE MARK 
10476 3¢ 
10477 3 
10478 sTHIS TEST VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES 
10479 sPROPERLY. IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO T 
10480 sBY CHECKING THA ANO CT THE 
10481 37 MARK. IN ADDITION, SINCE WRITE TAPE MARK IS THE FIRST 
10482 :SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED, IT IS VERIFIED 
10483 S THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND THAT 
oe sFORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED. 
1048 H 
10486 3 
10487 3 THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 
10488 3 
10489 3 
10490 $ 
10491 3- 
10492 105264 BGNTST 
105264 T8:: 
10493 105264 012737 006446 002170 MOV eee sSECONDARY ERROR MESSAGE 
10494 105272 005037 003124 CLR KTENABLE 3 TURN KT11 OFF 
10495 105276 004737 017364 JSR PC .KTOFF 3; TURN KT11 BACK OFF IF THERE 
10500 105302 012700 112521 MOV eTST28ID, RO sASCII MESSAGE TO IDENTIFY TEST 
10501 105306 004737 016600 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
oer 105312 012737 000005 002206 MOV #5, LOOPCNT sPERFORM 5S ITERATIONS 
3¢ 
19504 H 
10505 ;TEST 8, SUBTEST 1 
10506 3 
10507 ; 
10508 ;VERIFIES THAT A FORMAT COMMAND (WITH ANY LEGAL MODE 
10509 sCODE) WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS 
10510 sREJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL 
10511 ;VALID MODE CODES ARE CHECKED. 
10512 3 
10513 8 
10514 ¥ 
10515 
10516 105320 T28LO0P : 
10517 105320 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
105320 T8.1: 
105320 104402 TRAP csBSus 
10518 105322 004737 112546 JSR PC, T26REST sSET COMMAND PACKET 
10519 105326 004737 112640 JSR PC, T28RT2 iSET UP OTHER COMMAND PACKET 
10520 105332 004737 112702 JSR PC, T26RTS 3SET UP OTHER COMMAND PACKET 
10521 105336 004737 016064 JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
10522 105342 103407 BCS 20% 38R IF INIT WAS OK 
10523 105344 005237 002212 INC FATFLG sBUMP COUNT 
10527 105350 010001 MOV RO,R1 ;CONTENTS OF TSSR REGISTER 
10528 105352 ERROF  ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 


TSV7 - HARDWARE 
TEST 8: WRITE/READ TAPE MARK 


TESTS 


012124 


1-8 


000007 110500 20%: 


110460 
010752 


002212 


24%: 


110621 
110620 


002212 
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#7, T280SW 
@T26PACKET ,R4 
PC ,WRTCHR 


24% 
FATFLG 


RO,R1 
ERRNO, WRTMSG , SF IMSG 


EXTFEA 
50$ 


#200, T268S1 


RO,R1 
FATFLG 
ERRNO, T26SSR ,PKTSSR 


@T2EPACKET ,R4 

#7, T260SW 
»WRTCHR 

50% 

FATFLG 


RO,R1 
ERRNO, WRTMSG , SFIMSG 


TSSRCRS),R1 
OOFL ,R1 
60% 


FATFLG 
ERRNO, T260FL , SF IMSG 


SEQ 0304 

TRAP CSEROF 
-WORD 801 
-WORD SFIERR 
-WORD SFIMSG 

sSET UP DRIVE NUMBER 

sSUBROUTINE NEEDS PACKET ADDRESS 

SISSUE WRITE CHARACTERISTICS 

s8R, IF — ISSUED OK 

i BUMP 

SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 802 
-WORD  WRTMSG 
-WORD SFIMSG 


TRAP CSCLP1 
sCHECK FOR EXTENDED FEATURES SW SWITCH 
sBR IF SWITCH IS ON 


sWRITE MISCELLANEOUS CONT/READ STATUS 

sFUNCTION oy BIT (TURN ON EXTFEA Hw SWITCH) 
sWRITE SUBSYS PACKET 

ISSUE CORAND 


sWAIT FOR SSR 

3sBR, IF NO E 

sERROR, SAVE TSSR 

sBUMP COUNT 

iTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CSERHRD 
-WORD 603 
-WORD T26SSR 
.WORD PKTSSR 


sLOOP IF SELECTED 


TRAP CSCLPi 

s SUBROUTINE aT PACKET ADORESS 

sSELECT ORIVE 

—_ WRITE CHARACTERISTICS 

OS F SSUED OK 

BUN C 

3s SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRO 
-WORD 6804 
.WORD WRTMSG 
-WORD SFIMSG 

sSCOPE LOOP 
TRAP CSCLP1 

- TSSR CONTENTS 

CK FOR THE OFFLINE BIT SET 

s8R, IF OFFLINE (GOOD) 

sBUMP COUNT 

;0FF LINE SHOULD HAVE BEEN SET (BAD) 
TRAP CSEROF 
-WORD 605 
-WORD T260FL 
.WORD SFIMSG 


H& 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 14-JUN-84 14;17 SEQ 0305 
TEST 8: WRITE/READ TAPE MARK 

10575 105570 60$: CKLOOP ;LOOP IF SELECTED 
105570 104406 TRAP CSCLPi 

10576 105572 012703 110636 MOV @T26RN,RS sPOINTER FOR COMMANDS 

10577 105576 011337 110610 65$: MOV CR3), T26PK3S sTAPE READ COMMAND IN PLACE 

10578 105602 012704 110610 MOV @T28PK3 ,R4 3R4 = POINTER TO PACKET 

10579 105606 010465 000000 MOV R4, TSOBCRS) s ISSUE COMMAND 

10580 105612 004737 016340 JSR »WAITF sWAIT FOR SSR TO SET 

10581 105616 016501 000002 MOV TSSR(RS),R sGET TSSR CONTENTS 

10582 105622 012702 100306 MOV OSSR!SCIOFLIBIT1!81T2, R2 sSET UP EXPECTED 

105863 105626 020102 CMP R1,R2 sARE THEY EQUAL 

10584 105630 001406 BEQ 80% i8R, IF OK ESP. FUNCTION REJECT 

10585 105632 005237 002212 INC FATFLG sBUMP T 

10589 105636 ERRHRD ERRNO, T28TM,PKTSSR sTSSR INCORRECT AFTER FORMAT CMD 
105636 104456 TRAP CSERHRD 
105640 001446 . WORD 806 
105642 111524 . WORD T28TM 
105644 012136 . WORD PKTSSR 

10590 105646 80$ CKLOOP sLOOP IF SELECTED 
105646 104406 TRAP C$CLP1 

10591 105650 005723 TST CR3)+ sPOINT TO NEXT COMMAND 

10592 105652 022713 177777 CMP @177777,C(R3) 3sEND OF THE COMMANDS YET 

10593 105656 001401 BEQ 90% 36R, 

10594 105660 000746 BR 65$ sMORE COMMAND(S) TO GO 

10595 105662 90$ 

10596 105662 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
105662 L10131: 
105662 104403 TRAP CsESUB 

10597 105664 023727 002212 000017 CMP FATFLG,@15. :IS ERROR COUNT AT 25 

10596 105672 103402 BLO 999% 3B6R, IF LESS THAN 25 

10599 105674 004737 017272 JSR PC ,CKDROP :TRY TO DROP THE UNIT 

10600 105700 999%: 

10601 

10602 3° 

10603 H 

aes sTEST 8, SUBTEST 2 

0605 ° 

10606 ;VERIFIES THAT A FORMAT COMMAND WITH AN ILLEGAL MODE 

10607 sCODE CAUSES FUNCTION REJECT TERMINATION WITH THE 

10608 sILLEGAL COMMAND CILC) ERROR BIT SET. ALL ILLEGAL 

10609 sMODE CODES ARE CHECKED. 

10610 $ 

10611 3 

10612 H 

10613 s- 

10614 105700 BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
105700 78.2: 
1057CO 1 TRAP C$6SU8 

10615 105702 004737 112546 JSR PC, T26REST COMMAND PACKET 
105706 004737 112640 JSR PC, T26RT2] sSET UP OTHER COMMAND PACKET 

10617 105712 004737 112702 JSR PC, T28RTS 3SET UP OTHER COMMAND PACKET 

10618 105716 004737 016064 JSR PC, SOF INIT 3:00 INITIALIZE ON CONTROLLER 

10619 105722 103407 Bcs 20% 38R IF INIT WAS OK 

10620 105724 005237 002212 INC FATFLG sBUMP COUNT 

10624 105730 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

10625 105732 ERROF ERRNO, SFIERR ,SFIMSG TFATAL ERROR TSSR WAS NOT OK 
105732 104455 TRAP CSEROF 
105734 001447 . WORD 807 
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105736 003650 . WORD SFIERR 
105740 012124 -WORD SFIMSG 

10626 105742 013737 002172 110500 20%: MOV UNITN, T280SW sSET UP ORI‘E NUMBER 

10627 105750 012704 110460 MOV @T2BPACKET ,R4 sSUBROUTINE. NEEDS PACKET ADDRESS 

10628 105754 004737 010752 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 

10629 105760 103407 Bcs 24% s8R, IF COMMAND ISSUED OK 

10630 105762 005237 002212 INC FATFLG sBUMP COUNT 

10634 105766 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

10635 105770 ERRHRD ERRNO,WRTMSG, SF IMNSG sWRITE CHARACTERISTISC — 
105770 104456 TRAP te 
105772 001450 . WORD 
105774 005054 WORD MATMSG 
105776 012124 WORD SF IMSG 

10636 106000 243: CKLOOP ;LOOP IF SELECTED 
106000 104406 TRAP CSCLP1 

10637 106002 012703 110626 MOV @T2BIMV RS sSET POINTER FOR COMMANDS 

10638 106006 011337 110610 30$: MOV CR3), T26PK3 3SET UP NEXT COMMAND 

10639 106012 013737 003114 110612 MOV FREE , T28RB sSTARTING WRITE BUFFER ADORESS 

10640 106020 012704 110610 MOV @T26PK3 ,R4 3SET UP R4 WITH PACKET ADDRESS 

10641 106024 012737 000400 110616 MOV 0256. , T28SZ sSET UP RECORD SIZE IN PACKET 

10642 106032 010465 000000 MOV R4, TSOBCRS) sISSUE COMMAND 

10643 106036 004737 016340 JSR PC ,WAITF SMATT FOR yoo Na TO SET 

10644 106042 016501 000002 MOV TSSRC(RS).R sGET TSSR CONTEN 

10645 106046 012702 100206 MOV eSR!SCi81T1!61T2, R2 sSET UP EXPECTED 

10646 106052 020102 CMP 1,R2 | ARE THEY EQUAL 

10647 106054 001406 BEQ 75$ 36R, IF OK 

10648 106056 005237 002212 INC FATFLG sBUMP COUNT 

10652 106062 ERRHRD ERRNO, T26WOF ,PKTSSR :TSSR INCORRECT AFTER READ DATA 
106062 104456 TRAP CSERHRD 
106064 001451 -WORD 809 
106066 111157 . WORD T26WOF 
106070 012136 -WORD PKTSSR 

10653 106072 75$: CKLOOP ;LOOP IF SELECTED 
106072 104406 TRAP CSCLP1i 

10654 106074 013701 110510 MOV T26BFR+6,R1 sGET MESSAGE BUFFER 

10655 106100 010102 MOV R1,R2 sSET UP EXPECTED 

10656 106102 052702 001000 BIS @BIT9,R2 sSET THE ILC BIT IN EXPECTED 

10657 106106 020102 CMP R1,R2 sARE THEY EQUAL 

10658 106110 001406 BEQ 180% 3sBR, IF EQUAL CALL IS WELL) 

10659 106112 005237 002212 INC FATFLG sBUMP COUNT 

10663 106116 ERRHRD ERR. T26L0GQ,EXPREC 1 THE ILC BIT WAS NOT SET m 2 xSTO 
106116 104456 CSERHRD 
106120 001452 "WORD 810 
106122 111234 -WORD T28L0Q 
106124 015564 -WORD EXPREC 

10664 106126 1603: CKLOOP 
106126 104406 TRAP CSCLP1 

10665 106130 005723 TST CR3)¢ sBUMP TO NEXT ADDRESS (COMMAND) 

10666 106132 021327 177777 CMP (R3),0177777 sCHECK FOR END OF COMMAND BUFFER 

10667 106136 001323 BNE 30% 38R, IF MORE COMMANDS TO TRY 

10668 106140 190$: CKLOOP ;LOOP IF SELECTED 
106140 104406 TRAP CSCLPl 

10669 106142 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
106142 L1013e: 
106142 104403 TRAP CsESUB 

10670 106144 023727 002212 000017 CMP FATFLG,@15. :IS ERROR COUNT AT 25 


10671 106152 103402 BLO 999% sBR, IF LESS THAN 25 
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10672 106154 004737 017272 
10673 106160 
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999%: 


3¢ 


JSR PC ,CKDROP 


sTEST 8, SUBTEST 3 
VERIFIES THAT WRITE TAPE MARK COMMANDS OPERATE 


T_ READ COMMANDS SUBSEQUENTLY ISSUED 


sPROPE 

:T0 DETECT THE WRITTEN TAPE MARKS TERMINATE WITH TAPE 
sSTATUS ALERT WITH THE TAPE MARK DETECTED (TMK) STATUS 
sBIT SET. THE FOLLOWING SEQUENCE IS EXECUTED. 


: 
sl. 


» 


os © G oe Gs Ge 3s G2 Gs Ge Gs Gs Ge GS Ge Ge Ge Ge GE Ge Ge Ge Gs GE Gs Ge GS Ge Se Ge Ge Gs Gs Ge Gs Se oF 
~ 


w 


& 


a 


oa 


ie) 


THE CONTROLLER IS INITIALIZED AND TAPE REWOUND 
THIS SETS THE VOLUME CHECK (VCK) STATUS BIT. 


A WRITE TAPE MARK COMMAND WITH CvC*1 IS ISSUED 
AND PROPER TERMINATION AND STATUS IS VERIFIED 
(I.E. VCK=0 AND TMK=1) 


SEVERAL MORE WRITE TAPE MARK COMMANDS, THESE WITH 
CvC=0 ARE ISSUED AND PROPER TERMINATION (NORMAL ) 
AND STATUS (TMK) VERIFIED. 


A READ REVERSE COMMAND IS ISSUED AND PROPER 
TERMINATION (TAPE STATUS ALERT) AND STATUS (TMK) 
VERIFIED. IT IS ALSO VERIFIED THAT NO DATA IS 
TRANSFERRED INTO MEMORY. 


A SPACE RECORDS REVERSE COMMAND IS ISSUED AND 
PROPER TERMINATION (TAPE STATUS ALERT) AND STATUS 
(TMK) VERIFIED. 


THE TAPE IS REWOUND AND A READ FORWARD COMMAND IS 
ISSUED AND PROPER TERMINATION (TAPE STATUS ALERT) 
AND STATUS (TMK) VERIFIED. IT IS ALSO VERIFIED 
THAT NO DATA IS TRANSFERRED INTO MEMORY. 


A SPACE RECORDS REVERSE COMMAND THAT CONTAINS A 
RECORD COUNT GREATER THAN 1 IS ISSUED AND IT IS 
VERIFIED THAT TAPE Mile ALERT TERMINATION 
OCCURED, TMK=1 AND THAT RBPCR (RESIDUAL 
BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO 
VALUE. THIS pits ol VERIFIES THAT DETECTION OF 
THE TAPE MARK CAUSES THE SPACE RECORDS 


oe Ta JUST BEFORE THE FIRST RECORD ON 


TAPE POSITION IS VERIFIED BY ISSUING ANOTHER 
SPACE RECORDS REVERSE COMMAND AND VERIFYING THAT 
TAPE STATUS ALERT TERMINATION OCCURS, WITH THE 
REVERSE INTO BOT (RIB) STATUS ERROR BIT SET. 


A SPACE RECORDS FORWARD COMMAND THAT CONTAINS A 
RECORD COUNT GREATER THAN 1 IS ISSUED AND I7 IS 
VERIFIED THAT TAPE STATUS ALERT TERMINATION 


;TRY TO OROP THE UNIT 


SEG 0307 
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000002 
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110500 20%: 


23%: 
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OCCURED, TMK=1, AND THAT RBPCR (RESIDUAL 
BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERC 
VALUE. THIS OPERATION VERIFIES THAT DETECTION OF 
THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION 
TO BE PREMATURELY TERMINATED. 


BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
78.3: 
TRAP C$6SUB 
JSR PC, T26REST 3SET COMMAND PACKET 
JSR PC, T28RT2 sSET UP OTHER COMMAND PACKET 
JSR sree e sSET UP OTHER COMMAND PACKET 
MOV #10000. , T28DLY sSET UP DELAY ROUTINE 
JSR PC, — INIT ;00 INITIALIZE ON CONTROLLER 
BCS 20$ sB8R IF INIT WAS OK 
DELAY 250 sDELAY ABOUT .25 SECONDS 
MOV @250,(PC )+ 
-WORD © 
MOV i SOLY,(PC)>+ 
-WORD O 
DEC -6(PC) 
BNE .-4 
DEC -22¢ PC) 
BNE -20 
DEC T28B0LY ;BUMP DELAY ROUTINE DOWN 
BNE 10$ 368R, IF MORE DELAY TIME LEFT 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 


ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CsERDF 


-WORD 611 
-WORD SFIMSG 

MOV UNITN, T280SW sSET UP ~ ye NUMBER 

MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

JSR PC ,WRTCHR S ISSUE WRITE CHARACTERISTICS 

BCS 23% ;BR, IF COMMAND ISSUED OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRO ERRNO, WRTMSG, SFIMSG sWRITE CHARACTERISTISC ey ce 
TYORO 812 
-WORD WRTMSG 
-WORD SFIMSG 

CKLOOP ;LOGP IF SELECTED 
TRAP CsCLP1 

JSR PC ,REWIND sCALL TAPE REWINC COMMAND 

BCS 30% : sBR, IF NO PROBLEM 

MOV Ly \aaeane sGET TSSR 

MOV RO,R sSAVE PACKET ADDRESS 

INC FATFLG sBUMP COUNT 
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10776 106346 ERRHRD ERRNO, T28RWN,PKTSSR sREWIND NOT ACCEPTED 
106346 104456 TRAP CSERHRD 
106350 001455 -WORD 613 
106352 111601 -WORD T28RWN 
106354 0121356 WORD PKTSSR 

10777 106356 30$ CKLOOP sLOOP IF SELECTED 
106356 RAP CSCLP1 

10778 106360 013701 110510 MOV T26BFR+6,R1 sPICK UP XSTO 

10779 106364 010102 MOV R1,R2 sSET UP EXPECTED 

10780 106366 052702 000002 BIS #BIT1,R2 sSET BOT BIT IN EXPECTED 

10781 106372 020102 CMP R1,R2 ;DOES EXP = REC'D 

107862 106374 001406 BEQ 40% sBR, IF EQUAL (OK) 

10783 106376 005237 002212 INC FATFLG sBUMP COUNT 

10787 106402 ERRHRD ERRNO, T28B0T ,EXPREC ; TAPE NOT AT BOT AFTER REWIND 
106402 104456 TRAP C#ERHRD 
106404 001456 -WORD 614 
106406 111457 -WORD T28B0T 
106410 015564 -WORD EXPREC 

10788 106412 40$: CKLOOP sLOOP IF SELECTED 
106412 1 CSCLP1 

10789 106414 005737 002216 423: TST EXTFEA sCHECK FOR an FEATURES SW SWITCH 

10790 1 001 BNE 50% sBR IF SWITCH IS 

10791 106422 112737 000200 110621 MOVE #200, T28BS1 sWRITE MISCELLANEOUS CONT/READ STATUS 

10792 106430 112737 000010 110620 MOVB #10, T288S0 sFUNC. SEL. BIT (TURN ON EXTFEA SWITCH) 

10793 106436 012704 110570 MOV eT28PK2, R4 SWRITE SUBSYS MEM PACKET 

10794 106442 010465 000000 MOV R4, TSOBCRS) COMMAND 

10795 106446 004737 016426 JSR PC.CHKTSSR sWAIT FOR SSR 

10796 106452 103407 BCS 50¢ 3BR, IF NO ERROR 

10797 106454 010001 MOV RO,R1 sERROR, SAVE TSSR 

10798 106456 005237 002212 INC FATFLG sBUMP COUNT 
106462 ERRHRD ERRNO, T26SSR,PKTSSR sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
106462 104456 TRAP CSERHRD 
106464 001457 -WORD 615 
106466 111315 -WORD T28SSR 
106470 012136 WORD PKTSSR 

10803 106472 50$: CKLOOP sLOOP IF SELECTED 
106472 104406 TRAP CsCLP1 

10804 106474 012737 000007 110500 MOV #7, T260SW sSET UP DRIVE NUMBER 

10605 106502 012704 110460 MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 

10806 106506 004737 010752 JSR PC .WRTCHR TISSUE WRITE CHARACTERISTICS 

10807 106512 103407 BCS 60% s6R, IF — ISSUED OK 

10606 106514 005237 002212 INC FATF = sBUMP C 

10612 1 010001 MOV RO,R : SAVE CONTENTS OF TSSR 

10813 106522 ERRHRD ERRNO, WRTMSG , SF IMSG sWRITE CHARACTERISTISC FAILED 
106522 104456 TRAP CSERHRO 
106524 001460 -WORD 816 
106526 005054 «WORD WRTMSG 
106530 012124 -WORD SFIMSG 

10814 106532 60%: CKLOOP sSCOPE LOOP 
106532 104406 TRAP CsCLP1 

10815 106534 016501 000002 MOV TSSRC(RS),R1 sGET TSSR CONTENTS 

10816 106540 032701 000100 BIT @OFL .R1 sCHECK FOR THE OFFLINE BIT SET 

10617 106544 001006 BNE 65% BR, IF OFFLINE (GOOD) 

10618 106546 005237 002212 INC FATFLG sBUMP COUNT 

10822 106552 ERROF ERRNO, T260FL ,SFIMSG OFF LINE SHOUD HAVE om 3 SET (BAC) 
106552 104455 CSEROF 
106554 001461 TORO 817 
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110610 
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100000 
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UNITN, T28DSW 
@T2BPACKET ,R4 
PC,WRTCHR 
68% 


ERRNO, WRTMSG , SF IMSG 


#140011, T26PK3 
@T26PK3 ,R4 
R4, - TSDBCRS) 


ITF 
TSSR(RS),R1 
@SSR ,R2 


ERRNO, T26WOC , PKTSSR 


T26BFR+6,R1 

R1,R2 

eBIT4, Re 

R1,R2 

80% 

FATFLG 

ERRNO, T28VCK ,EXPREC 


T26BFR-6,R1 
R1,R2 
@8IT15,R2 
R1,R2 

90% 


FATFLG 
ERRNO, T26TMK ,EXPREC 


SEQ 0310 
-WORD T280FL 
-WORD SFIMSG 
sLOOP IF ae 
TRAP CS$CLP1 
;SET UP ORIVE NUMBER 
sSUBROUTINE NEEDS PACKET 
sISSUE WRITE CHARACTERISTICS 
:6R, IF — ISSUED OK 
;BUMP C 
} SAVE CONTENTS OF T 
; WRITE CHARACTERISTISC —S 
CSERHRD 
TMORO 18 
-WORD WRTMSG 
-WORD SFIMSG 
;LOOP IF SELECTED 
CSCLPi 
;WRITE TAPE MARK,ACK,CVC=1  Coewen 
47 UP R4 WITH PACKET ADDRESS 
$ 
sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;6R, IF OK 
;BUMP COUNT 
i TSSR INCORRECT AFTER “=~. TAPE MARK 
CSERHRD 
ORO 619 
.WORD T26wWOC 
. WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
;PICK UP XSTO (VCK CHECK) 
;SET UP yy 
;VCK SHOUD BE O 
:IS VCK SET CORRETTLY 
;BR, IF vCK IS CLEAR 
;BUMP COUNT 
;VCK WAS NOT CLEAR AFTER CYC=1 
TRAP CSERHROD 
.WORD 620 
.WORD T26vVCK 
. WORD EXPREC 
;LOOP IF SELECTED 
TRAP CsCLPl 
;PICK UP XSTO (CHECK TMK) 
:;SET UP EXPECTED 
; TMK SHOULD BE SET 
;WAS TMK SET 
;BR, IF TMK WAS SET 
;BUMP COUNT 
; TMK WAS NOT SET AFTER WRT TAPE MARK 
TRAP CSERHRD 
.WORD 621 
. WORD T26 TMK 
.WORD EXPREC 


oo a SS SS 
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90$; CKL OOP 


140%: 


1508: MOV 
110610 MOV 


155$: MOV 


165$: 


180%: CKLOOP 


N& 


14:17 


PC ,REWIND 
130% 


RO,R4 

TSSRCRS),R1 

FATFLG 

ERRNO , T26RWN,PKTSSR 


T26BFR+6,R1 
R1,R2 


@B1T1,R2 
R1,R2 
140$ 


FATFLG 
ERRNO, T26B0T , EXPREC 


#10. ,R3 
#140011, T26PK3 
@T26PK3 ,R4 

R4, TSOBCRS) 

PC ,WAITF 
TSSRCRS),R1 
@SSR ,R2 

R1,R2 

165% 

FATFLG 

ERRNO, T26WDC ,PKTSSR 


T26BFR+6,R1 
R1,R2 
#BIT15,R2 
R1,R2 


FATFLG 
ERRNO, T28TMK , EXPREC 


;LOOP IF SELECTED 


sCALL TAPE REWIND COMMAND 


;BR, IF NO PROBLEM 
;SAVE PACKET ADDRESS 
sGET TSSR STATUS 
s;BUMP COUNT 

sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 


sPICK UP XSTO 
sSET UP EXPECT 


ED 
sSET BOT BIT IN EXPECTED 


sD0ES EXP = REC'D 
sBR, IF EQUAL (OK) 


;BUMP COUNT 
;TAPE NOT AT BOT AFTER — 


LOOP IF SELECTED 


TRAP 
R OF RECORDS TO WRITE TM 


SEQ 0311 


CSC. Pl 


CSERHRD 
822 
T26RWN 
PKTSSR 
CsCLP1 


3s NUMBE 
;WRITE TAPE MARK, ACK ,CVC=1 COMMAND 


3SET UP R4& WITH PACKET ADDRESS 
COMMAND 


uP 
sSET UP EXPECTED (SSR ONLY) 
GOOD 


sWAS STATUS 


eA non WAS GOOD 
; 
sTSSR NOT CORRECT AFTER ee M. 


;LOOP IF SELECTED 


sPICK UP XSTO 
sSET UP EXPECTE 


vy) 
sSET TMK BIT IN EXPECTED 
REC'D 


;D0ES EXP = 
iBR, IF EQUAL (OK) 
;BUMP COUNT 


;TMK NOT SET AFTER WRT — MARK 


;LOOP IF SELECTED 


CSERHRD 


624 
T26WOC 
PKTSSR 


CSCLP1 


CSERHRD 
S 


82 
T26TMK 
EXPREC 


CSCLP1 
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10918 107172 005305 DEC R3 sBUMP COUNTER DOWN 

10919 107174 001337 BNE 1558 sBR, IF LESS THAN 10 TAPE MARKS 

10920 107176 012700 177777 MOV @177777,R0 sVALUE TO WRITTEN TO MEMORY 

10921 107202 004737 017512 JSR PC ,FILLMEM sFILL MEM WITH ALL 

10922 107206 013737 003114 110612 MOV FREE , T26W8 sSTARTING READ BUFFER ADDRESS 

10923 107214 012737 140401 110610 MOV 140401 , T26PK3 sREAD REVERSE , ACK, 

10924 107222 012704 110610 MOV @T26PKS ,R4 sSET UP RO WITH PACKET ADDRESS 

10925 107226 0135737 000024 110616 MOV 20. , T28SZ sSET UP RECORD SIZE IN PACKET 

10926 107234 010465 000000 MOV » TSOBCRS ) s ISSUE COMMAND 

10927 107240 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 

10928 107244 016501 000002 MOV TSSRCRS).R sGET TSSR CONTENTS 

10929 107250 012702 100204 MOV eSsnisciarte, R2 sSET UP EXPECTED 

10930 107254 020102 CMP R1,R2 sARE THEY EQUAL 

10931 107256 001406 BEQ 200% sBR, IF OK 

10932 107260 005237 002212 INC FATFLG sBUMP COUNT 

10936 107264 ERRHRD ERRNO, T26RDF ,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
107264 104456 TRAP CSERHROD 
107266 001472 -WORD 626 
107270 111014 -WORD T26ROF 
107272 012136 -WORD PKTSSR 

10937 107274 200%: CKLOOP sLOOP IF SELECTED 
107274 104406 TRAP CSCLP1 

10938 107276 013701 110510 MOV T26BFR+6,R1 sPICK UP XSTO 

109359 107302 010102 MOV R1,R2 sSET UP EXPECTED 

10940 107304 052702 109300 BIS eeiris, Re sTMK SHOULD BE SET 

10941 107310 020102 CMP R1,R2 IS TMK SET 

10942 107312 001406 BEQ 210% s6R, IF THK WAS SET (GOOD) 

10943 107314 005237 002212 INC FATFLG sBUeP T 

10947 107320 ERRHRD ERRNO, T26RRM,EXPREC 3; TMK NOT SET AFTER READ REV 
107320 104456 TRAP CSERHROD 
107322 001473 -WORD 627 
107324 112127 -WORD T26RRM 
107326 015564 -WORD EXPREC 

10948 107330 210%: CKLOOP sLOOP IF SELECTED 
107330 104406 TRAP Csc.P1 

10949 107332 017701 073556 MOV @FREE ,R1 sFIRST LOC IN READ BUFFER 

10950 107336 012702 177777 MOV @177777,R2 sEXPECTED IF NO DATA TRANS. 

10951 107342 020102 chp R1,R2 sDID ANY DATA GET TRANSFERRED 

10952 107344 001406 BEQ 220% s8R, IF NO DATA TRANS (GOOD) 

10953 107346 005237 002212 INC FATFLG sBUeP COUNT 

10957 107352 ERRHRD ERRNO, T260TR,EXPREC :DATA TRANSFERRED ON = —" MARK 
107352 104456 CSERHRD 
107334 001474 TORO 
107356 112342 WORD T260TR 
107360 015564 WORD EXPREC 

10958 107362 220%: CKLOOP sLOOP IF SELECTED 
107362 104406 TRAP Csc.P1 

10959 107364 012737 100410 110610 MOV #100410, T26PK5 sSPACE REVERSE , ACK 

10960 107372 012737 1 110612 MOV #1, T26R8 s NUMBER RECORDS TO SPACE BACK 

10961 107400 012704 110610 MOV OT26PK3 ,R4 iSET UP R4 WITH PACKET ADORESS 

10962 107404 010465 000000 MOV R4, TSOBCRS) sISSUE COMMAND 

10963 107410 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 

10964 107414 016501 MOV TSSAC(RS),R1 sGET TSSR CONTENTS 

10965 107420 012702 100204 MOV @SSR!SC!BIT2,R2 sSET UP EXPECTED 

10966 107424 020102 CMP ‘ sARE THEY 
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005237 002212 


177777 

017512 

003114 110612 
110610 


012737 100001 


110610 
000024 
000000 
016340 
000002 
100204 


110616 


-8 MACRO M1113 


2228: 


2268: 


2303: 


2408: 


Pa 


14. JUN-84 14:17 


ERRHRD 


S3335888S8e3 2 


ERRNO, T26RDG,PKTSSR 


R1,R2 
@B1T15,R2 
R1,R2 

226 


FATFLG 
ERRNO , T26RRN , E XPREC 


PC ,REWIND 
230% 


RO,R4 

TSSRCRS),R1 

FATFLG 

ERRNO, T26RWN,PKTSSR 


T26BFR+6,R1 
R1,R2 


@81T1,R2 
R1,R2 


240% 
FATFLG 
ERRNO, T26B0T , EXPREC 


#177777 ,R0 
MEM 


FREE , T26RB 
#100001 , T26PK3 
@T26PKS ,R4 


TSSACRS),R1 
@SSR!SC!6IT2,R2 
R1,R2 

245s 


sTSSR INCORRECT AFTER SPACE CMD 


sLOOP IF SELECTED 


sPICK UP XSTO 
sSET UP EXPECTED 


TRAP 


36R, IF TMK WAS SET (GOOD) 

sBUMP COUNT 

3: TMK NOT SET AFTER SPACE REV 
TRAP 


. WORD 

. WORD 

. WORD 
sLOOP IF SELECTED 

TRAP 


sCALL TAPE REWIND COMMAND 
PROBLEM 


sLOOP IF SELECTED 


sPICK UWP XSTO 
sSET UP EXPECTED 
sSET BOT BIT J — 


;BUMP 
sTAPE NOT AT BOT AFTER REWIND 
TRAP 


. WORD 

. WORD 

. WORD 
sLOOP IF SELECTED 

TRAP 


sVALUE TO WRITTEN TO MEMORY 
sFILL MEM WITH ALL ONES 
sSTARTING READ BUFFER ADORESS 
sREAD FORWARD, OMRAND 


ACK, 
iSET UP R4 WITH PACKET ADORE SS 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
s6R, IF OK 


SEQ 0313 


“COERMRO 
829 


T28R0G 
PKTSSR 


CSCLP1 


CSCLP1 


CSERHRD 
832 


T2680T 
EXPREC 


CsCLPl 


- HARDWARE T 


11018 
11022 


107652 


005237 


TSsv? ESTS 1-8 
TEST 8: WRITE/READ TAPE MARK 


002212 


073164 
177777 


002212 


100410 
000005 
110610 
000000 
016340 
900002 
106204 


002212 


110510 
100000 


002212 


MACRO M1115 


110610 
110612 


245%: 


250%: 


2608: 


D9 | 


14-JUN-84 14:17 


INC 
ERRHRD 


FATFLG 
ERRNO, T28WDE , PKTSSR 


or st 


ERRNO, T26RRP , EXPREC 


FREE ,R1 
#177777 ,R2 
~ in 


250 
FATFLG 
ERRNO, T26DTR,EXPREC 


#100410, T26PK3 
#5, T26RB 


TSSRCRS),R1 
@SSR!SCIBIT2,R2 
R1,R2 


2608 
FATFLG 
ERRNO , T26RDG ,PKTSSR 


Ly Anetta 


LG 
ERRNO, T26RRN, EXPREC 


SEQ 0314 


sBUMP COUNT 

sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERMRD 
-WORD 633 
. WORD T26WDE 
-WORD PKTSSR 

3LOOP IF SELECTED 
TRAP C$CLPi 

sPICK UP KSTO 

sSET UP EXPECTED 

3 TMK O BE SET 

3IS TMK SET 

s6R, IF TMK WAS SET (GOOD) 

sBUMP COUNT 

THK NOT SET AFTER READ REV 
TRAP CSERHRD 
-WORD 634 
-WORD T28RRP 
-WORD EXPREC 


sLOOP IF SELECTED 
TRAP CsCLP1 


sFIRST LOC e he BUFFER 
sEXPECTED IF NO DATA TRANS. 


IF NO DATA TRANS (GOOD) 
sBUMP COUNT 
:DATA TRANSFERRED ON << * Lg MARK 


CSERHRO 
. TORO 835 
-WORD T26DTR 
-WORD EXPREC 


sLOOP IF SELECTED 
TRAP CsCLP1 


BACK 
sSET UP _R4 WITH PACKET ADORESS 
sISSUE COMMAND 
sWAIT FOR SSR TO SET 


sGET TSSR CONTENTS 
sSET UP EXPECTED 
EQUAL 


sARE THEY 

3BR, IF OK 

sBUMP COUNT 

ITSSR INCORRECT AFTER ont. REV CMD. 

CSERHRO 

TYORD 36 
.WORD T26RDG 
.WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CSCLP1 

sPICK UP xSTO 

sSET UP EXPECTED 

3 TMK D BE SET 

sIS TMK SET 


s6R, IF TMK WAS SET (GOOD) 
sBUMP COUNT 
THK NOT SET AFTER READ REV 





- HARDWARE TEST aS MACRO M1113 14-JUN-84 14:17 SEQ 0315 
test “8: WRITE/READ T 

110062 104456 TRAP CSERHRD 
110064 001505 -WORD 837 
110066 112205 -WORD T28RRN 
110070 015564 -WORD EXPREC 

11070 110072 2708: CKLOOP ;LOO0P IF SELECTED 
110072 104406 TRAP CSCLP1 

11071 110074 013701 110506 MOV T26BFR+4,R1 ‘ou UP RESIDUAL BYTE COUNTER 

11072 110100 012702 000004 MOV 04, ,R2 O BE THE DIFFERENCE 

11073 110104 102 CMP Ri, R2 iTS COUNTER CORRECT 

11074 110106 001406 BEQ 2808 38R, IF COUNTER CORRECT 

11075 110110 005237 002212 INC FATFLG sBUMP COUNT 

11079 110114 ERRHRD ERRNO, T26PBP ,EXPREC sRESIOUAL BYTE COUNTER a Be * 
110114 104456 CSERHRD 
110116 001 "WORD 638 
110120 110731 -WORD T26PBP 
110122 015 -WORD EXPREC 

110860 110124 2803: CKLOOP sLOOP IF SELECTED 
410124 1 TRAP CScLP1 

11081 110126 012737 100410 110610 MOV #100410, T26PK3 sSPACE REVERSE .ACK, COMMAND 

11062 110134 012737 1 110612 MOV 41,T ;NUMGER RECOROS TO SPACE BACK 

11083 110142 012704 110610 MOV @T28PK3, R4 SSET UP R4 WITH PACKET ADDRESS 

110864 110146 010465 MOV R4, TSDBCRS) sISSUE COMMAND 

110865 110152 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SE 

11086 110156 016501 000002 MOV TSSRCRS),R sGET TSSR CONTENTS 

11087 110162 012702 100204 MOV eseRiscre1T2, R2 3SET UP EXPECTED 

11088 110166 020102 CMP R1,R2 sARE THEY EQUAL 

11089 110170 001406 BEQ 290% sBR, IF OK 

11090 110172 005237 002212 INC FATFLG sBUMP COUNT 

11094 110176 ERRHRD ERRNO, T26RDG.PKTSSR ;TSSR INCORRECT AFTER SPACE CMD. 
110176 104456 TRAP CSERHRD 
110200 001507 -WORD 839 
110202 111075 -WORD T26RO0G 
110204 012136 .WORD PKTSSR 

11095 110206 290%: CKL90P 3L00P IF SELECTED 
110206 TRAP CSCLP1 

11096 110210 013701 110516 MOV T26BFR+14,R1 sPICK UP XSTS3 

11097 110214 010102 MOV R1,R2 3SET UWP EXPECTED 

11096 110216 052702 000001 BIS @BITO,R2 3RIB SHOULD BE SE 

11099 110222 020102 CMP R1,R2 31S RIB SET 

11100 110224 001406 BEQ 300% :8R, IF RIB WAS SET (GOOD) 

11101 110226 005237 002212 INC FATFLG sBUMP COUNT 

11105 110232 ERRHRD ERRNO, T26RIB,EXPREC ;RIB NOT SET AFTER READ REV 
110232 104456 TRAP CSERHROD 
110234 001510 .WORD 840 
110236 110654 .WORD T26RIB 
110240 015564 .WORD EXPREC 

11106 110242 300%: CKLOOP 3;LO00P IF SELECTED 
110242 104406 TRAP CsCLP1 

11107 110244 012737 100010 110610 MOV #100010, T28PKS sSPACE FORWARD ,ACK, COMMAND 

11108 110252 012737 000005 110612 MOV #5, T26RB8 sNUMBER OF RECORDS TO SPACE FORW. 

11109 110260 012704 110610 MOV @T26PK3 ,R4 3SET UP R4 WITH PACKET ADDRESS 

11110 110264 010465 MOV R4, TSOBCRS) sISSUE COMMAND 

11111 110270 737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 

1112 110274 016501 000002 MOV TSSACRS),R1 sGET TSSR CONTENTS 

11113 110300 012702 100204 MOV @SSR!ISC!BIT2,R2 sSET UP EXPECTED 

11114 110304 020102 CMP R1,R2 sARE THEY EQUAL 

11115 110306 001406 BEQ 3108 :BR, IF OK 


TSV7 - HARDWARE 


11116 
11120 


110310 


TESTS 1-8 
TEST 8: WRITE/READ TAPE MARK 


005237 


104456 
001511 
111014 
015564 


100004 


002212 


110510 
100000 


002212 


002212 
017272 


016546 


MACRO M1113 14-JUN-84 14:17 


000017 


INC FATFLG 
ERRHRD ERRNO, T28ROF ,EXPREC 


3108: CKLOOP 
MOV T26BFR+6,R1 
MOV R1,R2 
BIS eBIT15, R2 
CMP R1,R2 
BEQ 320% 
INC FATFLG 
ERRHRD enue. T26RRP ,EXPREC 
3208: CKLOOP 
MOV T26BFR+4,R1 
MOV e4 . R2 
CMP R1,R2 
BEQ 330% 
INC FATFLG 
ERRHRD ERRNO, T28PBP ,EXPREC 
330%: CKLOOP 
ENDSUB 
CMP FATFLG,@15. 
BLO 999% 
JSR PC ,CKDROP 
999%: 
F 
3 
JSR PC, TSTLOOP 
Bcc 1633 
JMP T26L00P 
163%: 
ExIT TST 


s¢ 
sLOCAL STORAGE FOR THIS TEST 
3 - 

-BLKB 10-<,-TSV2E7> 
T26PACKET : 

-WORD 100004 





SEQ 0316 

sBUMP COUNT 

sTSSR INCORRECT AFTER SPACE CMD. 
TRAP CSERHRD 
. WORD 841 
.WORD T28ROF 
-WORD EXPREC 

;LOOP IF SELECTED 
TRAP CSCLPi1 

sPICK UP XxSTO 

sSET UP EXPECTED 

3 TMK SHOULD BE SET 

31S TMK SET 

36R, IF TMK WAS SET (GOOD) 

sBUMP COUNT 

3TMK NOT SET AFTER READ REV 
TRAP CSERHRD 
. WORD 2 
-WORD T286RRP 
-WORD EXPREC 

3;LOOP IF SELECTED 
TRAP CSCLP1 

sPICK UP RESIDUAL BYTE COUNTER 

sSHOULD BE THE DIFFERENCE 

31S COUNTER CORRECT 

;BR, IF COUNTER CORRECT 

;BUMP COUNT 

} RESIDUAL BYTE COUNTER 5 © ae 

CSERHRD 

‘ 843 
.WORD T26PBP 
.WORD EXPREC 


sLOOP IF SELECTED 
TRAP CSCLP1 
3<<<eeeceece END SUBTEST >>>>>>>>>>> 


L10133: 
TRAP CsESUB 
sIS ERROR COUNT AT 25 
3B8R, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


300 WE NEED TO ITERATE TEST 
sBR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 


sALL DONE THIS TEST 
TRAP 
. WORD 


CSExIT 
L10130-. 


sCOMMAND PACKET FOR TEST 
s;WRITE CHARACTERISTICS COMMAND, WITH IE, ACK 


TSV7 - HARDWARE TESTS 1 
TEST 8: WRITE/RE 


110470 
000000 
000012 
110502 
000000 
000024 


000000 
000000 


003114 


010 


101411 


101011 
177777 


AD TAPE 


8 MACRO M1113 14-JUN-84 14:17 
MARK 
.WORD T28DATA 
.WORD O 
-WORD 10. 
T2BDATA: 
.WORD T28BFR 
-WORD O 
-WORD 20. 
-WORD O 
T260SW: .WORD 0 
T26BFR: .BLKW 25. 
F 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
: 
-BLKB 10-<,-TSV2E7> 
T28PKe: 
-WORD 100006 
.WORD T2é8éBF2 
-WORD O 
-WORD 6. 
-BLKB 10-<,-TSV2E7> 
T28PK3: 
-WORD 100005 
T26RB : 
T28WB: .WORD FREE 
-WORD O 
T28SZ -WORD O 
EVEN 
3 
3 
3 
T28BF 2: 
T2868SO: .BYTE 10 
T28BS1: .BYTE 200 
T26S2: .WORD O 
T28S3: .WORD O 


-EVEN 
sTAPE MOTION PACKET COMMAND VALUES 


T26IMV: 





m 
a 
z 


Go 


1 1 
101011 
177777 


ooo 


SEQ 0317 


sADDRESS OF CHARACTERISTICS BLOC 

sSTARTING VALUE OF BLOCK SIZE 

sCHARACTERISTICS DATA BLOCK 

sADDRESS OF MESSAGE BUFFER 

sLENGTH OF MESSAGE BUFFER | 


;SELECT DRIVE 0 | 
;MESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, IE AND ACK 
sADDRESS OF SELECT BLOCK DATA 


;SIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 

sADDRESS OF WRITE BUFFER 

sSIZE OF BUFFER (EXTENT) 
| 
| 


sBSELC AREA 


;DATA AREA 


sILLEGAL MODE BITS TEST DATA 


sWRITE TAPE MARK COMMAND 
sERASE COMMAND 

sWRITE TAPE MARK RETRY 
sEND OF DATA 


s TAPE TIMER COUNTER STORAGE AREA 
sTAPE TIMER COUNTER STORAGE AREA 
sDELAY COUNTER 


SEE 


TSV7 - HARDWARE TESTS 1-8 
TEST 8: WRITE/READ TAPE MARK 


11226 

11227 

11228 

11229 

11230 

11231 110654 124 141 

11232 110731 122 145 

11233 111014 124 123 

11234 111075 124 123 

11235 111157 124 123 

11236 111234 111 154 

11237 111315 127 122 

11238 111366 124 123 

11239 111457 124 141 

1 111524 124 123 

11241 111601 122 145 

11242 111650 104 162 

11243 111723 124 123 

11244 1 103 126 

11245 112055 124 115 

11246 112127 124 115 

11247 112 124 115 

11246 112264 124 115 

11249 112342 104 141 

11250 112424 104 141 

11251 112521 127 162 

11252 

11253 

11254 

11255 

11256 

11257 

11258 

11259 

11260 112546 

11261 112546 

11262 112552 012701 110460 

11263 112556 012721 100004 
1 012721 110470 

11265 112566 

11266 112570 012721 0900012 

11267 112574 012721 i10502 

11268 112690 

11269 112602 012721 000024 

11270 112606 1 

11271 112610 012711 000000 

11272 112614 012702 000030 

11273 112620 012762 177777 

11274 112626 005742 

11275 112630 020227 000000 

11276 112634 001371 

11277 112636 000207 

11276 

11279 

11260 112640 

11261 112640 

11262 112644 012701 110570 


MACRO M1113 14-JUN-84 14:17 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 


3;¢ 


TST281D: 
. VE! 


‘Tape Position Not Correct, RIB Should Be Set’ 
‘Residual Byte Counter ister (RBPCR) Not Correct’ 
‘TSSR Incorrect After READ REVERSE Into TAPE MARK’ 
‘TSSR Incorrect After SPACE Into TAPE MARK’ 


‘TSSR Not Correct After Illegal Mode Bits Set’ 
"ITllegel Mode Bite, Feiled To Set ILC Bit In xSTO' 
‘WRITE MISCELLANEOUS Commend Not Accepted’ 


‘TSSR Not Correct After READ DATA Commend, Into TAPE MARK: 
ommand' 


t Accepted 
‘Drive 7 Select Feiled To set" “OL” In TSSR’ 
‘TSSR Not Correct _— meg it MARK A ~ rad 
Megsage er’ 
MARK Command 


‘TMK Not Set After READ FORWARD Into TAPE MARK’ 
‘Date Trensferred On READ REVERSE Into A TAPE MARK’ 


‘Date Compere Error, Dete Read From Tape Not Equal To Written’ 


-ASCIZ ‘Write/Read Tape Mark’ 


3 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 


T2BREST: 


110502 64%: 


T26RT2: 


BNE 
RTS 


SAVREG 
MOV 


sSAVE THE REGISTERS 
@T26PACKET ,R1 sSTART OF THE PACKET 
#100004 ,(R1)+ sWRITE SUBSYSTEM MEM. ACK, 
@T26DATA,(R1)+ sADORESS OF CHARATSTICS TDATA BLOCK 
R1)« sEXTENDED SS 
#10. ,CR1)+ sSIZE OF DATA BLOCK IN BYTES 
=o sADDRESS OF MESSAGE BUFFER 
Sl 
ot ha sLENGTH OF MESSAGE BUFFER 
° 
#0,(R1) sSELECT DRIVE ZERO 
#24. ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
0177777, T26BFRCR2) PALL ONES TO MESSAGE BUFFER 
-(R2) sNEXT LOCATION 
R2,00 sCHECK FOR END 
64% sKEEP GOING UNTIL DONE 
PC sRETURN 
sSAVE THE REGISTERS 
@T26PK2 ,R1 sSTART OF THE PACKET 


SEQ 0318 





- HARDWARE TEST 


S$ 1-8 


TSv7 
TEST 6: WRITE/READ TAPE MARK 


012721 
012721 
005021 
012721 
005021 
012701 
112674 005021 
005011 
000207 


012701 


110610 


MACRO M1113 


T26RTS: 


14-JUN-84 14:17 


#100006, (R1)+ 
@T26BF2,(R1)+ 


@T28PK3,R1 
(R1)-+ 
CR1)+ 
(R1)+ 

CR1) 

PC 


sWRITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF DATA BLOCK 
sEXTENDED ADORESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 
sRETURN 


sGET Rng tJ ADDRESS 
sCLEAR COMMAND AREA 
sCLEAR ADDRESS AREA 
sCLEAR EXTENDED Peete Sy AREA 
sSIZE OF DATA TRANSFER 

sRETURN 


L10130: 


TRAP CseTst 


SEQ 0319 


TSV6 - PARAMETER CODING MACRO M1115 
TEST 8: WRITE/READ TAPE MARK 


112726 
112726 


000010 


000031 
112750 
160010 
177776 


001031 
113004 
000000 
000776 

104 


111 
111 


105 
116 
116 


14-JUN-84 14;17 SEQ 0320 


-TITLE TSV6 - PARAMETER CODING 


BGNMOD TSV6 
TSV6:: 


-SBTTL HARDWARE PARAMETER CODING SECTION 


yee 

; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 

: THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

; MACROS ALLOW a vestarstcnomeat TO ESTABLISH COMMUNICATIONS 

; WITH THE OPERATOR 

’ lied 


BGNHROD 
-WORD L10134-L$HARD/2 
L$HARD: : 


Tene’ 160010,177776, YES sGET TSBA/TSOB REGISTER ADDRESS. 


HPM1 

TSLOLIM 

TSHILIM 
HPM2,.2,.0,0,776, YES 
TS$CODE 


PEELE 


;GET VECTOR ADORESS. 


HPM2 
TSLOLIM 
TSHILIM 


HPMS.4,0,340,0,7, YES ;GET INTERRUPT PRIORITY. 


1 es 


L10134; 
126 HPM1: -ASCIZ ‘DEVICE ADDRESS ( TSBA/TSDB ) . 
124 HPM2: -ASCIZ ‘INTERRUPT VECTOR 
124 HPM3: -ASCIZ ‘INTERRUPT PRIORITY ’ 


KO 


TSV6 - PARAMETER CODING MACRO M1113 14-JUN-84 14:17 SEQ 0321 


SOFTWARE PARAMETER CODING SECTION 


000003 


001130 
113120 
177777 


113400 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 

; 


BGNSFT 

.WORD L10135-L$SOFT/2 

; ""GPRML SPM1,0,-1, YES ; GET TRANSPORT TEST FLAG. 
a 


GPRML 8=SPM4,2,-1, YES GET ITERATION CONTROL . 
-WORD TSCODE 
WORD SPM4 
WORD 


.4,0,7777,0, 7777, YES ; GET LOCAL ERROR LIMIT 
: SPM7.6.0,7777,0,7777, YES ; GET GLOBAL ERROR LIMIT 
ENDSFT 
EVEN 
L10135: 


SPM1: .ASCIZ ‘ENABLE TRANSPORT TESTS 
Spm4: .ASCIZ ‘INHIBIT ITERATIONS 
SPM6: .ASCIZ ‘PER TEST ERROR LIMIT 


; 
; FINALLY A GENEROUS PATCH AREA. 


; AND AN ADJUSTMENT TO ACCOUNT FOR THE "“LASTAD BIT7"” HACK 
; DESCRIBED IN “SUPPRG.MEM” (FOR REV C). 


PATCH: : 


LASTAD ;SET LAST USED ADDRESS. 


LSLAST::— 


TSV6 - PARAMETER CODING MACRO M1113 14-JUN-84 14:17 
TABLE 


SYMBOL 


38 
£ 


011722 
002210 G 


AHAHAD oO 


LISTAL= 


ANA 


SEQ 0322 


TSV6 - PARAMETER CODING MACRO M1113 14-JUN-84 14:17 SEQ 03523 
SYMBOL TABLE 

LOE = 040000 G L$UNIT 002012 G L10071 055642 M8189 005643 PRBEXP 015560 
LOOPCN 002206 G L10000 1 L10072 047704 A  *# 002000 PRBMSG 015426 
LOOPCO 015216 L10001 002166 L10073 050304 NEWPAS 022034 C 015562 
LOOPFL 003152 G L10002 005764 110074 0507 V 003104 G PRBTOT 015513 
LOT = 000010 G L10003 012134 L10075 051424 NOINIT 004333 PRBYTE 015212 G 
L$ACP 002110 G L10004 012152 L10676 052164 NOINTR 004217 PRI = 

LSAPT 36 G L10005 012170 110077 053124 NOITS 002160 G PRIADD 010250 
L$AU 022376 G L10006 012176 L10100 053444 020624 PRI 010320 
L$AUT 002070 G L10007 012214 L10101 054046 M 0054 PRIBXO 007702 G 
L$AUTO 022602 G L10010 012232 L10102 075224 NP.IR = 000200 PRIEQU 010150 
LsccP 002106 G L10011 012256 L10103 NP.LOO= 000040 PRIPKT 7460 
LSCLEA 022662 G L10012 0123350 L10104 057452 .OUT= 000100 PRIRAM 010156 
isco 002032 G 110013 01 L10105 060344 NP.WRP= 000020 PRITAD 010364 
LSDEPO 002011 G 110014 013214 L10106 061272 N 004150 PRITSS 006022 
LSDESC 003400 G L10015 014042 L10107 NSINIT 004405 PRITO 010446 
LSDESP 002076 G L10016 014064 L10110 062712 004525 PRIT1 010511 
LSDEVP 002060 G 110017 015570 L10111 063564 NULCR 004526 PRIXOR 010032 G 
LSOISP 002124 G L10020 015576 L10112 064436 = 004000 PRIOO = 000000 G 
LSOLY 002116 G 110021 0 L10113 065312 NXMFLG 003126 PRIO1 = 000040 G 
LSDOTP 002040 G L10022 015616 L10114 066166 NXMHI 003132 G PRIO2 = 000100 G 
LSDTYP 002034 G L10023 015640 L10115 067036 PRIO§ = 000140 G 
L$0U 022474 G L10024 015666 L10116 067770 NXMTST 021476 PRIO4 = G 
L$DUT 002072 G 110025 0 £10117 071020 003736 PRIOS = 000240 G 
LSOVTY 003372 G L10026 016336 L10120 071400 NXRERR 005734 G PRIO6 = 000300 G 
LSeF 002052 G L10030 2 L10121 072054 NXRX 003775 PRIO7 = 000 G 
LSENVI 002044 G L10031 022472 L10122 105262 NXTU 022046 PRMESS 014332 
LSETP 002102 G L10032 022600 L10123 L__ * 000100 PRMNO 002310 G 
LSEXP1 002046 G L10033 022660 L10124 076430 ONEFIL®= PRMSGE 014642 G 
LSEXP4 002064 G L10034 022706 L10125 077252 OSAPTS= 000000 PRMSGO 015022 
LSEXPS G L10035 023150 L10126 100154 OsAU = 000001 PRMSG1 015067 

L 112730 G L10036 024610 L10127 101704 O$BGNR= 000001 015125 
LSHIME 002120 G 110037 027270 L10130 112724 O$BGNS= 000001 PROASC 014510 
LSHPCP 002016 G L10040 025216 110131 1 O#s0U = 000001 PRIASC 014555 
LSHPTP OU2022 G L10041 L19132 106142 OSERRT= 000000 PST32W 003142 G 
L $id 002146 G L10042 026120 L10133 110414 OSGNSW= 000001 PUNIT 022330 
LSICP 002104 G L10043 034450 110134 112750 OsSPOIN= 000001 Pw.D011= 000021 
LSINIT 021602 G L10044 027676 110135 113070 Os$SETU= PwW.013= 000022 
LSLADP G L10045 01 G PASRPT 022100 Pu.022= 000020 
LSLAST 113404 G 110046 031366 MEMCK 021322 G PATCH 113230 G Pu .NOP= 

L$LOAD 002100 G L10047 031602 MENASC 0205357 PATDAT 320 Pw.NO1l= 000025 
| LSLUN 002074 G 110050 032150 MENERR 020464 PC.ERA= 002400 PuW.RDE= 000024 
LSMREV 002050 G 110051 032514 MENRES 020566 IER= PwW.RDR= 000001 
_ LSNAME 002000 G L10052 046714 MMVEC = 000250 PC.NOO= 001000 Pu.ROS= 000005 
| L$PRIO 002042 G L10053 035122 MSA.FR= 000006 PC.REL= 000000 PW.RFI= 000005 
LSPROT 021572 G L10054 MSA.NO= 000000 PC.REW= 000400 PW.WCT= O00006 
; LSPRT 002112 G L10055 036456 MSA.NR= 000004 PKBCNT= 000006 Pu.WFI= 000004 
LSREPP 002062 G L10056 037160 MSA.VO= 000002 PKHI = 000004 PW.WFM= 000007 
|LSREV 002010 G L10057 037624 MSGEXP 012234 G PKLOW = 000002 Pw.WMI= 000010 
LSRPT 022710 G L10060 MSGLOO 015154 G PKTADD 007644 PW.WNP= 000011 
LSSOFT 113062 G 110061 040714 MSGSTA 012440 G PKTFRM 007606 PuW.WTR= 060002 
L$SPC 002056 G L10082 041506 014032 G PKTGET 012154 G P.ACK = 100000 
LSSPCP 002020 G L10063 042010 MS.ATT= PKTMES 012200 G P.CMD = 000037 
LSSPTP 002024 G L10064 04 MS.EXT= 000200 PKTRAM 004743 G P.CONT= 000012 
L$S;A 002030 G L10065 MS.RSD= 000001 PKTSSR 012136 G P.CVC = 040000 
L 002156 G Li 043012 MS .RSF= 000020 PNT =#* 001000 G P.FAT = 000140 
LSTEST 002114 G L10067 043312 MS.RST= 000010 PRAMPK 014066 P.FORM= 000011 
L$TIm 002014 G L10070 043776 M6166 005552 PRASC 014615 P.GETS= 000017 


NOOO eee 
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SYMBOL TABLE 
P.IE * 000200 SPM6 =—s-:113150 TSREJ = 000006 TSSCLE= 010034 T22WRT 026310 
P.INIT= 000013 SPM7 —- 113200 TSSDEF 006676 T$$DU = 010032 123A =: 003134 G 
P MODE= 007400 SRO = 177572 TSSR = 000002 G TSS$HAR= 010134 T23AM3 033340 
POPP = 020000 SR1 = -:177574 TSSRBI 003500 G T$$HW = 010000 1238 =: 003136 G 
P.POSI= 000010 SR2 = _:177576 TSSRFO 006505 T$$INI= 010030 T238A 033725 
P.READ= 000001 SR3 = ‘172516 TSSRH = 000003 G T$$MSG= 010025 T23BFR 032602 
P'SWB = 010000 SR os TSSX 004016 T$$PRO= 010027 T238F2 032722 
P.WRIT= STATCO 012502 TSTBLK 002742 G T$$RPT= 010035 T238S0 032722 
P.WRTC= 000004 SVCGBL= 000000 TSTCNT 002204 G T$$SOF= 010135 T238S1 032723 
P.WRTS= SVCINS= 000000 TSTEND 017010 TS$SRV= O1 T23CHK 034262 
ave 002174 G SVCSUB= 000001 TSTFLA 002304 G T$$SUB= 010133 T23CON 032740 
| RAMASC 014246 SYCTAG= 000000 TSTLOO 016546 G T$$SW = 010001 T230AT 032570 
|RAMDAT 002232 G SYCTST= 000001 TSTPTR 002306 G TS$TES= 010130 T230SW 
RAMERR 015600 G SsLSYM= 010000 TSTSET 016600 G Tl 023472 G T23EOT 03 
RAMEXP 015620 G SO. IDB= 000010 TST21I 024434 T2 024612 G T23ET 032777 
| RAMFOR 010206 S0.IFB= 000002 TST22I 027077 T2.1 024642 T23L00 027342 
RAMSIZ 002272 G SO.IFP= 000001 TST23I 034066 T2.2 34 T230FL 033406 
RAMTAD 015606 G S0.ILD= 000020 TST24I 046462 T2.3 025556 T23PAC 

A 002274 G SO. ION= 000040 TST25I 055440 T21AM3 024313 T23PK2 032670 
RCVLOA 002276 G SO.IRD= 000100 TST26I 075027 T218FR 024114 T23PK3 032710 

S0.IRW= 000004 TST27I 105063 T21BF2 024210 T23RES 034102 

RECMSG 002456 G S0.ISP= 000200 TST26I 112521 T21BS0 024210 T2 033265 
RECV 002224 G $1. ICE= 1Sv2 002000 G T218S1 024211 T23RSZ 032720 
REGSAV 0202 S1.IE0= 010000 TSV3 002166 G T21DAT 024100 T23RT2 034174 
RETERR 005370 S1.IF.1= 001000 TSvV4 =: 021572 G T210LY 112 T23RT3 034236 
RETRY 034326 S1.IHE= 000490 TSV6 =: 112726 G T210SW 024110 T2 033216 
REWIND 011104 G S1.IID= 004000 TSV?7 023472 G T21L00 023522 T23SSR 032744 
RMCHBE= 000167 S1.11R= 020000 TTIBFR= 177562 G T210FL 13 T23SZ 032716 
RMCHEN= S1.12R= 040000 TTICSR= 177560 G T21PAC 024070 T23S2 032724 
RMMSGB= 000215 S1.PAR= 100000 YTIVEC= 000060 G T21PK2 200 T2383 7 
RMMSGE= 000234 S2.ATI= 000010 $ARGC= 3 T21RES 024456 T23T™ 033142 
RMPKTB= 400201 S2.8TI= TSCODE= 001130 T21RT2 S546 T23TMP 032730 
RMPXiE= 000210 S2.DIM= 000200 TSERRN= 001513 T21SSR 024216 T23VCK 033652 

= 010000 S2.ILW= 000100 TSEXCP= T21S2 024212 T2 032712 
RUPACK 011200 = 000020 TSFLAG= 000040 T2183. 024214 T23W0 032734 
<C_ = _:100000 S2.0UT= 000040 T$ T22AM3 026415 T23WO0C 033550 
SCE _= 020000 S2.UND= 000003 TSHILI= 000776 T22BFR 2 T23WO00 033461 
SCHERR 005276 TBLEND= 003052 G TSLAST= 000001 T22BF2 026300 T23WOR 032736 
sce 005011 TCOASC TSLQ.I= T22BS0 026300 T23WRT 032732 
SDELAY 010750 TCOCOD 0067 T$LS\M= 010000 T22BS1 026301 T23wSS 033777 
SEL ASC TEMP1 003106 G TSLTNO= 000010 T22DAT 026170 T24AM3 
SELDAT= 000004 TEMP2 003110 G TSNESf= 177777 T22FOR 026314 T24BA 
SEL2 = TERCLS= 16 $NSO = T22L00 024642 T24BFR 044062 
SETMAP 017406 TESTNO= 000010 TSNS1 = T220FL 026515 T24BF2 
SETU TEXASC 006525 T$NSz = 000002 T22PAC 026160 T24B0T 045043 
SFFMSG 012172 G TFCASC TSPTMU= T22PK2 026270 T248SO0 044200 
SFHERR 003703 TIMEXP 015642 G T$SAVL= 177777 T22P0S 026312 T24BS1 044201 
SFIERR 003650 TIMSGO 015670 T$SEGL= 177777 T2 T24CON 044212 
SFIMSG 012124 G TINERR 012111 T$SUBN= 3 T22RES 027 T24DAT 0 
SFPTBL 156 G TMPBFR 26 TSTAGL® 177777 T22RT2 027224 T24DLY 044216 
SIFLAG 003144 G TNAM 016774 TSTAGN= 010136 T22RWJ 0 T24DSW 044060 
SIMSG 012056 TRANST 002156 G TSTEMP= T22SSR 0 T240TA 045110 
SKIPT 003370 TSBA = G TSTEST= 000010 T22S2 026302 T24EOT 045176 
SOFINI 016064 G TSBAH = 000001 G T$TSTM= 177777 T2283 0 T24ILA 044572 
SPACE 010556 G TSDB = 000000 G TSTSTS= 1 T22TM 026570 T24L0N 046142 
|'SPM1 113070 TSOBH = 000001 G T$$AU = 010031 T22VCK 026737 T24L00 034516 
SPM4 =: 113120 TSFCOD 007326 T$$AUT= 010033 T22WLK 027012 T24L0P 046224 
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SYMBOL TABLE 


054274 


074140 


SEQ 0325 
14 034452 G 
14.1 034516 
14.10 042026 
14.11 042272 
14.12 04 
14.13 043030 
14.14 043330 
14.2 035140 
14.3 035720 
14.4 036474 
14.5 037176 
14.6 037642 
14.7 040276 
14.6 040732 
14.9 041324 
5 046716 G 
TS.1 046746 
15.2 047722 
15.3 050322 
1S.4 050776 
5.5 051442 
5.6 
5.7 053142 
1S.8 053462 
T6 055644 G 
76.1 055710 
T6.10 065330 
T6.11 
76.12 067054 
76.13 O07 
76.14 071036 
76.15 071416 
16.2 
76.5 057470 
16.4 
76.5 061310 
16.6 
16.7 062730 
16.8 063602 
16.9 064454 
1? 075226 G 
T7.1 075266 
17.2 075664 
17.3 076446 
17.4 077270 
17.5 100172 
Té 105264 G 
76.1 105320 
T8.2 105700 
78.3 106160 
VAM = G 
UNITN 002172 G 
UNREC « 
USI 


wC.IFE= 000002 
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SYMBOL 

wC.IGO= 000001 WRTERR 005111 
wC.IRE= 000010 WRIMSG 00 

wC . IRwWe 021314 G 
wC.IOT= 000100 XFERAS 016030 
wC.I1T= 000040 XNXM 016466 
wc. ISR= XORBFO 007764 
WF .IED= 000010 XORFOR 010102 
WF .IER= xSTO = G 
WF. IHI= 000200 xST1 * 000010 G 
WF. IRE= 000040 xST2 * 000012 G 
WF. IWF = 000020 xSTS = 000014 G 
WF .IWR= 000100 xST4 = 000016 G 
WF .I3SR= 000002 xSOBOT= 000002 
WF .I4R= 000001 XSOEOT= 000001 
WRICHR 010752 G XSOIE = 000040 


: 
: 
eg 


| ABS 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 31592 WORDS ( 124 PAGES) 
| DYNAMIC —" 20614 WORDS ( 79 PAGES) 


| ELAPSED 00:58:44 
CvTSCB,CVTSCB/ -SP=SvC/M_ , TSVIC, TSV22C, TSV38, TSV4, TSV7A, TSV6 


XSOILA®* 
XSOILC* 
XSOLET= 


C10 


SEQ 0526 

000400 XSFALS= 000040 X2.UNI*= 000007 
001000 XSOFFS« 00 X2.WCF* 002000 
0 X$TRUE* 000020 %3.0CK* 000010 

X%1.COR= X3.MBZ< 
002000 X1.0LT* 1 X3.MDE* 177400 
000100 X1.MBZ* 017375 X3.0PI* 000100 
000010 X1.RBP= X3.REV= 000040 
010000 X1.SPA= 040000 X3.RIB* 000001 
040000 X1.UNC* 000002 X3.SPA* 000200 
100000 BUF = 000100 X3.TRF= 000020 
000020 X2.ExT= 000200 X4.HSP= 100000 
004000 X2.0PM= 100000 X4.MBZ= 017400 

X2.RCE* 040000 X%4.RCE* 040000 
003112 G X2.REV= 000077 X4.1SM= 0 

X2.SPA= 035400 X4,.WRC* 000377 


a i 


